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ABSTRACT 


One of the most time consuming parts of the design process is the debugging of 


the project. This happens when simple modifications to a circuit require recompilation 


of the whole circuit. 
In the CAD tool currently available for digital systems design, compilation is a 


bottle neck. The VOHL system has an extremely efficient simulator phase and a 


reasonable but slower compilation phase. 
This thesis investigates a mechanism for eliminating the need to recompile the 


complete circuit when small changes are needed. 
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I. INTRODUCTION 


A. BACKGROUND 

The project of the multilevel logic simulator began in 1981 when Ausif 
Mahmood, as part of his doctoral research at the Washington State University, started 
the construction of a VLSI logic simulator, that had been developed by Dr. H. B. 
Rigas. The principal idea of this development was to try to design a simulator that 
could have superior performance to commercial systems and be portable among a 
number of off-the shelf computer systems. 

The system was enhanced in 1986 when Lt. J. Scott Kelly, as part of his Master 
of Sciences degree, made some modifications in the existing system to add facilities to 
the simulator. 

In the initial stage of the simulator a circuit is built using the VLSI-Oriented 
Hardware Language, or VOHL. With this syntax the user can totally describe the 
circuit to be simulated. This description of the circuit is sent to the Compiler program 
which translates the VOHL statements into a series of data structures that allow a 
posterior simulation of the circuit. After the data structures are built, the Timing 


Wheel Simulator executes the actual simulation of the circuit. 


B. THE TOOLS 
1. VOHL syntax 

The VOHL description language allows the user to describe the digital circuits. 
The complete presentation of the language was presented in Mahmood ( [Ref. 1] ). To 
allow a presentation of a brief description of the language, the circuit presented in 
Figure 1.1 was designed. Figure 1.2 presents the VOHL syntax for this circuit, showing 
all the possibilities that are available in the language for the description of a circuit. 

Each circuit that we want to describe in the VOHL 1s called a module, and the 
beginning of each module is presented by the keyword MODULE, followed by the 
name that the user wants to give to the module. The next step in the description of 
the circuit is the presentation of its inputs and outputs, and these parts are defined in 
the syntax by the keywords INPUT and OUTPUT, respectively. After each one of 
these keywords the user presents the names of the variables that are the inputs and the 
outputs for the circuit being described. 


: TESL: 
: Cle, 


MODULE 
INPUTS 
OUTEUTS 


Cin? EN; 


: A; 

TYPES : NANDTHRE : NANDT1 
EXOR : EXORI 
NOR : NORI1 ; 
NAND : NANDI ; 
INTERNALS : Al, A2, A3, A4, AS, Ab, AZT, AS, 


e 
? 
e 
, 


A9, AlO, All, 


Al2, al3, Al4, "ALS, Al6, i Al8, A19; 


Al? = ANDFOUR (Al2, A10, A6, EN); 


Al = OR (CLK, EN); 
USING (NOEXP, EXORL) : A2 = EXOR (clr, 


Al9 = ORTHREE (Al7, “Ale Al4); 


A5 = INVERT (A4); 
USING (NANDL) : A7, A8, AQ = SRBLOCK (clr, A6, 
RETDBLO (A3, AS, Al, 


Al); 


Al2, Al3, Al4, oe Al6 = 


A = AND (clr, alg 
USING eS. ,NORI i‘ AiO = NOR (AS, oy 
USING (NOEXP,NAND1) : A4 = NAND (EN,A3); 


All = ORFOUR (A100, A7, AZ, 


_EN); 
USING (NOEXP, NANDT1) = NANDTHR (ELK Al, AZ) 


A6 = ANDTHRE (A4, A2 
: 318 = NANDFOU (Al, hee oe A8); 
DEFINE : AND RISEDEL(0,0}=2, FALLDEL (0, O}=4, 
RISEDEL(1,0)=2, FALLDEL =3 
NOR1L: FALLDEL(0,0)=3 ; 
EXORL : RISEDEL(1,0)=3, FALLDEL(0,0)=2; 
NANDTL : RISEDELL(2,0)=2, FALLDEL(1,0)=3; 
ANDFOUR : FANOUT = 10 ; 
ORTHREE : OVERLOAD = 2; 
NAND1: RISEDELAY(0,0)=3, FALLDELAY(0,0)=2, 
RISEDELAY(1,0)=4; 

INITIALIZE : A=1, Al0O=1, AR =0 ; 

PRINTOUT : clr, CLK, EN, AS, A; 

INL 5 


Figure 1.2 A VOHL description of a circuit 


The keyword TYPES begins the next part in the description. This part can be 
divided into two parts: the first part begins with the keyword INTERNALS, and lists 
all the variables that are restricted to the circuit being described,1e., those that are not 
inputs or outputs to the circuit. The second part does not have a 


define it. In this part the user presents the names that he/she has 
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A4); 
A8, All, A6); 


specified keyword to 
given to those gates 
that have specifications that are different from the default specifications for the gates. 
For example, if the user wants to use one of the AND gates of the 
delay values he/she might name this type of gate as ANDI. This information will 


circuit with different 


appear in the description as AND : ANDI, and when the compiler reads this definition 
it will expect a further definition of the changes for this kind of gate. All the gates that 
have differences with respect to the standards need to be presented in this part, with 
this syntax. 


READIN 0 0 2 Q 
AND 2120 


SRBLOCK 
RETDBLO 
ANDFOUR 
NANDFOU 
ORTHREE 
ORFOUR 41 2 0 


3 0 
5 0 
5 1 
6 1 
& 0 
4, 0 
iS 0 





Figure 1.3. The library of primitives 


Since all the variables and modified gates that will be used in the circuit are 
already declared, the user can now start to describe the circuit to be simulated. The 
actual structure of the circuit is presented in the following scheme: 

output variable = primitive name (input variables) 
where: 


1. output variable - one (or more) of the outputs or internals presented in the 
declaration part of the circuit; 


2. primitive name - one of the primitives that is supported by the system in its 
library or an user primitive that will be described in future modules. The library 
of primitives that are actually supported by the system is presented in the 
Figure 1.3; 


3. input variable - one (or more) of the variables (input, qutput or internals) 
presented in the declaration part of the circuit. 


The library of primitives presented in the Figure 1.3 appears as a table, with 
each element having 5 different fields. A complete description of the meaning of the 
fields can be found in Kelly ( [Ref. 2] ).The fields that compose the library of primitives 


are. 
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The user-defined name of the primitive 
number of inputs in the primitive 


number of outputs in the primitive 


& See 


type of description available for the primitive - This number shows what kind of 
description was made for the primitive. If the primitive has a block level 
description this number is 0. If the description is a structural description this 
number is | and if the description 1s composed by both types of descriptions 
this number is 2. This field is important because, depending of the type of 
description of the primitive, some restrictions apply to its use in both, the 
Compiler and the Editor programs. 


5. primitive level - This field shows the level of the primitives supported by the 
system. If the primitives are basic gates, they are in the lowest level of the 
system, and consequently, the level will be 0. If the primitive is composed only 
by gates of level 0 it will be a level | primitive. If in the composition of the 
primitive contains at least one level 1 description, it will be a level 2 primitive, 
and so on. 


During the description of the circuit the user also presents to the system with 
the gates that he/she defined in the TYPES part of the description to be used. The 
position of the gates are indicated by using the keyword USING, followed by the name 
given by the user to that specific gate. When the system reads the keyword it 
understands that some of the characteristics of this gate are different from the standard 
values, and it will expect the definition of these values in a future part of the syntax. 

After the description of the circuit the user presents the control specifications 
for the simulation. First of all, the keyword DEFINE 1s used to allow the user to define 
gates with specifications that are different from those specified in the library. In this 
part the user presents the specification for the specific gates that were presented in the 
TYPES part of the description or for a general gate. In this part the user can specify 
rise delay, fall delay and fanout for a gate as well as define its functional description. 

Some of the primitives presented in the library are really a collection of gates 
that are defined for the system and that can be treated as a single element. However, 
the user might need to modify some of the internal characteristics of these elements, 
and to do that it 1s necessary to expand the gate to a lower level. In the VOHL syntax 
expansion to a lower level is invoked by the keyword EXPAND, where the user 
expands a gate to a lower level and makes the necessary modifications to the gate. The 
Figure 1.4 shows the expansion of the RETDBLO to allow the internal gates of the 
circuits to have delays that are different from the standard delays. 
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MODULE aap oa : 


INPUTS D, CLK, DUM1, DUM2, DUM3 ; 

OUTPUTS “9, OC DM1, DM2, DM3 ; 
TYPES : INTE xe WZ: 

X = NAND(Z, Y) ; 

Y = NANDTHRE( X/CLR, CLK) ; 

W = NANDTHRE(Y, CLK, Z) ; 

Z = NANDTHRE(W, CLR, D) ; | 
Q = NAND(Y, OC) ; | 
OC = (NANDTHRE(Q, CLR, W) ; 


Figure 1.4 The RETDBLOck - expansion 


The keyword INITIAL is used if any of the internals or outputs must be 
initialized to a specified value. The PRINTOUT keyword is used to show the variables 
that will be printed after the simulation. 

If during the description of the circuit the user defines a primitive that is not 
one of those supported by the system this new primitive needs to be described to the 
system. This description is done in the same way as the original circuit and is called a 
submodule. The submodules will have the same syntax as the principal module, with 
the restrictions that the name that appears after the keyword MODULE needs to be 
the same name that appeared in the primitive part of the description, and that those 
submodules need to be described after the end of the description of the module where it 
was named. The Figure 1.5 presents an example of a description using submodules 

2. Compiler 

The VOHL statements are compiled into data structures which are used by the 
simulator. 

One of the most important structures for the system are the descriptor 
records. Descriptor records are explained in more detail in the Chapter 2. Briefly, thev 
are records that describe the behavior of each element. The record is composed by 
various fields, each one with its corresponding function. As we can see in Figure 1.6, 
the record has fields for the type of primitive function, pointers for up to two inputs 
and fields for their values, and also fields for parameters like fall delay, rise delay, 


technology, fan-out and so on. The number of inputs or outputs for each gate can be 


Ly 


MODULE : ADDFOUR; 

INPUTS: AO, Al, AZ, A3, BQ, Bl, BZ, Bopeerum, 
OUTPUTS : SO, Sl, S2, S3, 

fe : INTERNALS : coor Col, é02 ; 


SO, COO = FULLADD (AO, BO, CIO); 
S1, COl = FULLADD (Al, (Bl ecou 
$2, CO2 = FULLADD (AZ, 352 eGo 


; 53, 0s FULLADD (A3, B3, COZ 
DEFINE 3; 

INITIALIZE : CIO=0; 

PRINTOUT: $3, $2, S1, SO, CO3; 


MODULE : FULLADD ; 
INEUES <>, (Caen: 


On; 

TYPES : INIERNA = KX 7 Y= ae 
X , Y = HALFADD A,B); 

S | Z = HALFADD 
CcO=OR(Z,Y); 
} 

MODULE : HALFADD ; 
OUTPUTS : T , COH ; 
{ 

T 2-EXOR wie ele 
CoH = AND (Cc, D$; 
END; 


Figure 1.5 The VOHL description with sub-modules 


extended incrementally using an extension pointer. For example, the three input OR 
gate needs two records, one that will hold two inputs and the output and another 
record that holds the other input. The descriptor records are connected together by the 
head pointer, to form the circuit. 

The Figures 1.7 and 1.8 present a simple demonstration circuit and the 
connections of the descriptor records for that circuit respectively. We can see that all 
the descriptor interconnections follow the way in what they are presented in the VOHL 
syntax. More detailed information about how the descriptors are built and 
interconnected can be found in [Ref. 3] and in [Ref. 4], 

The principal function of the compiler is to create a SIMDATA file that will 
be used by the simulator to build the descriptor record for each descriptor. The 
SIMDATA file, as will be explained later on, holds all the information about each 
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Present UWtOUT 
lExtension pointer 
Deley Mat. Painter 





Figure 1.6 A descriptor record 


descriptor, such as if it is an input, what gate is being used, delays and so on. Figure 
1.9a and Figure 1.9b present the SIMDATA file created by the compiler for the circuit 
presented in the Figure 1.2. 

To create the SIMDATA file the compiler program first verifies whether the 
VOHL program describes only one module or several modules in the circuit. In the 
latter case, the submodules that are defined by the user are placed in an table, that is 
called expand table, and the structural description of these modules are moved from 
the user program to a temporary library for posterior usage. Also in this phase the 
program tries to find the keyword EXPAND and, if it is found, the module names that 
are found in each EXPAND line are also placed in the expand table. 

Until now the system was in hierarchical form but, for simulation purposes, 
the system needs to be represented in a single level. To do that, the compiler looks for 
the expand table to verify if any expansions are requested. If the system has modules 
to be expanded, and if they are system primitives, the program will look for the 
auxiliary file STRUC, to build the single level description. If the required expansions 
are user defined modules the system will build the single level description using the 
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MODULE: COMPILATION DEMO; 


INPUTS: A, B; 
OUTPUTS<30; 
TYPES: INTERNALS: Xl zor 
{ 
X1 AND(A, 8B); 
X3 OR(X1, B);3 
A INVERT (X11) 3 
O<=.0R(CKAZ, XS) 
} 
DEE bite: 3 
INITIALIZES” X1=07 7 X2=0,  *e@=0- 
PRINTOUTS. AS, 2; 
END: 3 





Figure 1.7 A demo circuit 


temporary library defined at the beginning of the expansion process. Figure 1.10 
shows the single level description for the circuit after all the expansions be performed. 

After the single level description is ready, the program will start the 
construction of the SIMDATA file, that will be used in the next step by the timing 
wheel simulator. 

3. Simulator 

To allow an efficient simulation by only using those parts of the circuit that 
change state, the multilevel simulator uses the concept of the “activity stack” ( [Ref. 5] 
and (Ref. 6] ). Activity stacks are really the pointer loops that are built during the 
compilation of the system. When the state of a system element is modified, the pointer 


loop that is originated from this element receives a flag, that marks the element as 
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Figure 1.8 The descriptor connections for the demo circuit 
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Figure 1.9a The SIMDATA file 
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Figure 1.10 A single level description 


“potentially active” ( [Ref. 5] and [Ref. 6] ) and those stacks are scheduled to be 
evaluated. 

Now suppose that the activity stacks that receive the flag were evaluated and 
both change their states (as a function of the initial state’s change). In this case all the 


stacks that are connected to to these two stacks receive a “potentially active” flag, and 


ZO 


will be evaluated in the next step. If all of the flagged stacks are not modified when 
the initial state changes, the system will forgot them, because they will not influence 
the posterior function of the circuit. In the same way, the stacks that are connected to 
the stacks that changed their states will receive a flag to allow a posterior evaluation. 
This evaluation is cyclic { [Ref. 5] and [Ref. 6] ), so the procedure is repeated until all 
the circuit’s inputs have been exhausted. 

The advantage of this algorithm is the speed, since only those stacks that are 
flagged as “potentially active” are analyzed. 


C. WHY THE EDITOR 

Because of the way that the simulator was implemented, the entire program must 
be recompiled when any modification is made to a circuit. This is not unusual in 
contemporary CAD tools. However, it might be possible to make small changes to the 
circuit without total recompilation. 

In this thesis an EDITOR program 1s designed, to allow the user to make small 
modifications in a circuit without recompilation. With the EDITOR, the user will be 
allowed to make the following modifications in the circuit: 

1. REPLACE - to replace a gate or an input to a gate by another. 
INSERT - to insert a gate in the circuit. 
DELETE - to delete a gate from the circuit. 
ALTDEL - to modify a delay of one of the gates of the circuit. 
ADDPRI - to allow the insertion of the printout of a variable in the output. 
DELPRI - to delete the printout of a variable in the output of the circuit. 


Se een 


ALTINI - to allow the modification of an initialization value of one of the 
variables. 


8. INSOUT - to insert an output in the circuit. 
9. DELOUT - to delete an output from the circuit. 


10. ALTGATE - to allow the alteration of the delays of all the gates gates of the 
type desired. 


11. INSINP - to insert an input in the circuit. 
12. INSINPG - to insert an input and a gate in the circuit. 
13. DELINP - to delete an input from the circuit. 
14. DELINPG - to delete an input and a gate from the circuit. 
The first step in the design of the EDITOR was to understand the data structures 
that are generated by the original simulator. These structures will be described in the 


next chapter. 
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Once the editor is implemented the thesis investigates the conditions under which 


the dynamic editing is superior to recompilation. 
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Il. ORIGINAL DATA STRUCTURES 


A. AN OVERVIEW 

The original multilevel simulator program creates four data structures to allow 
the simulation of any circuit. Those structures are two tables, one file and records, The 
tables, called SYMT and DESCT, are built by the compiler and contain alliemae 
information about each gate of the circuit. The file, called SIMDATA file, contains all 
the interconnections between the gates of the circuit to allow the timing-wheel to build 
the descriptor’s connections for the simulation. 

The Figure 2.1 presents a circuit that has almost all variations that are possible 
with the VOHL syntax, such as delays, initialization values, technology, and fanload 
that are different from the standard gates. All the tables and files that are presented as 


examples in this chapter are based in this circuit. 


B. THE SYMT TABLE 


In the original compiler program the SYMT table, that can be seen in Table 1, is 
a table that contains four kinds of information: 
1. name of the variable 
2. the descriptor number that corresponds to this variable 


3. the type of gate that generates the variable, that will be the number in the 
PRIMITIV.DAT that corresponds to this gate (0 if the variable is an input to 
the circuit) 


4. fanload of the variable, that is the number of gates that are connected to the 
output of the gate that generates the variable 


This table is initiated by the compiler when the declaration part of the VOHL 
description of the circuit is read. The variable names are placed in the first column of 
the table in the order that the INPUT, OUTPUT and INTERNAL parts of the 
description are read, giving a descriptor number for each variable when this variable is 
inserted into the table. The other two columns, primitive and fanload, are written when 
the compiler reads the description of the circuit. As we can see, the order in which the 
variables appear in this table is the order in which they appear in the declaration part 


of the VOHL description and not in the order that they are described in the circuit. 
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MODULE : EXCKT; 

INPUTS : A, Al, B; 

OUTPUTS : A&S5; 

TYPES : NANDTHRE : NANDT1 ; 
EXOR : EXORI ; 


Dl 
INTERNALS : ad, A3, A4, A5, A6, A7, AB, AY, AlO, All, Al2, 
Al3, Al4, AlS, Al6, Al7, Als, A19, A100; 


{ 
AS = INVERT (A4); 
A100 = OR (Al, B); 
A85 = AND (A, Al 
USING (NOEXP  EXORLS : A2 = EXOR (A, R100) 
USING (NOEXP,NOR1) : AlO = NOR (AS, A8 
USING (NOEXP.NAND1) : A@ = NAND (B, A3 
-A19 = ORTHREE (Al7, Al8, Al4); 
A7, A8, A9 = SRBLOCK (A, A6, A4); 
USING (NOEXP,NANDT1) : A3 = NANDTHR (A100, Al, A2); 
A6 = ANDTHRE (A4, A2, A100); 
Al7 = ANDFOUR (Al2, AlO, A6, B); 
All = ORFOUR (A10, A7, A2, B); | 
Al3 = NANDFOU (A100, A, Al3, A8); | 
Al2, Al3, Al4, Al5, Al6 = RETDBLO (A3, AS, AlOO, A8, All, a6 ) | 
DEFINE : AND: RISEDEL(0,0}22, ee 
RISEDEL(1,0)=2, FALLDEL(1,0)=3; 
NOR1L: FALLDEL(0,0)=3 ; 
EXOR1L : RISEDEL(1,0)=3, FALLDEL(0,0)=2; 
NANDT1 : RISEDELL(2,0)=2, FALLDEL(1,0)=3; 
ANDFOUR : FANOUT = 10 ; 
ORTHREE : OVERLOAD = 2: 
NANDL: RISEDELS(L ‘0 }=a) FALLDELAY(0,0)=2, 
RISEDELAY(1,0)=4; 
NITIALIZE : A85 = A3= 0, AlO =1 ; 
PRINTOUT : A, Al, 3. "A8S, AS; 


END; 





Figure 2.1 The demonstration circuit 


C. THE DESCT TABLE 

The DESCT table is a table that contains two types of information. The first 
type is the name of the gate, and the second type is the position that is occupied by 
this gate in the SYMT table. If we think in terms of the circuit presented in the Figure 
2.1, the DESCT table for this example is the table presented in the Table 2, 

This table is built when the compiler reads the description of the circuit. When 
the compiler reads the name of the variable, it verifies the position of this variable in 
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TABLE 1 
THE SYMT TABLE 


Cesc eres —_ 
variable primitive fanload 
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the SYMT table and puts the corresponding number in the second column of the table. 


























When, in the next step, it reads the gate whose output will generate that variable, it 
puts the name of the gate in the first column of the table. As we can see, this table will 


a 


have its elements in the order that they appear in the description of the circuit and not 
in the order that they are declared. 


D. THE DESCRIPTOR RECORD 

The descriptor record is the data structure built by the timing-wheel simulator, 
following the instructions given by the SIMDATA file. 

The structure of the descriptor, that can be seen in Figure 2.2, is formed by 15 
fields. 


Pointer to FuUnexziem 


3 2 value 
Rise cdelay CD 
Rise delay Ce,L 

O 2tav C.1) 
Fall delay 2,1) 


ROU Como meen 
Sresenn UCD Uae 





Figure 2.2 The descmptorrecord 


The first field, the “POINTER TO FUNCTION’, points to the primitive that is 
represented by this descriptor. This field is written when the simulator reads a 
descriptor in the SIMDATA file and recognizes the primitive. The next two fields are 
the fields “INPUT | VALUE” and”INPUT 2 VALUE’, that will contain the values of 
the inputs for this descriptor. The record has also two fields called “INPUT 1 
POINTER” and “INPUT 2 POINTER”. These two fields are also written when the 
SIMDATA file is read, and they will connect the inputs to the descriptor to the 
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descriptor itself. The two fields that will receive the values of the inputs for the 
descriptor will be written during the simulation, every time that their values are 
computed. 

The descriptor also has four fields for delays, two for rise delays and two for fall 
delays, with the values of the delays from each input to the output. These fields are 
written during the reading of the SIMDATA file or, by the default delay of the 
primitive (if no modification of delays is presented) or, by the modified delays to the 
gate that were defined in the VOHL circuit definition. 

The next two fields that will be described are the fields that correspond to the 
output. Two fields will describe the output of the circuit. The first one is "PRESENT 
OUTPUT” and in this field we will have the value of the output as a function of the 
inputs, function and delays. The other is the “HEADER POINTER” field, and this 
field is a pointer to the descriptor that uses this output as one of its input. 

The “MODE” field of the descriptor will be filled during the reading of the 
SIMDATA file, and its value will depend of the technology that is being used, the fan 
load for this descriptor, the fanout of the gate, etc. 

As we can See, each descriptor has place for two inputs (input 1 pointer and 
input 2 pointer) and one output (header pointer). If we want to describe a gate with 
more than two inputs and/or one output one descriptor is not sufficient. In this case 
we will need more of these descriptors, one for each additional 2 inputs and/or 1 
output. These new descriptors, called “extension descriptors”, have the same fields that 
‘the original descriptor and are connected to it by the ">EXTENSION POINTER’ field, 
which is a pointer that points to the next descriptor in the chain, in a multidescriptor 
case. The “PARENT” field, which contains the descriptor number of the starting 
descriptor of this representation, is also used in this case. 

Another important case for this descriptor is the gate that has more than one 
output, 1e., the multi-output gates. As we can see, each descriptor record has room 
for 4 delays, two from each input to the output, one for the value of the rise delay and 
one for the value of the fall delay. If the gate that is being described has more than one 
output we will need four more spaces for the insertion of the delay values from the 
inputs that are being presented in this record to each one of the new outputs. In this 
case the system creates one “DELAY MATRIX” extension, with the structure shown 
in the Figure 2.3, for each new output of the circuit. To connect the original structure 
to these new extensions, the "DELAY MATRIX POINTER?” field is used. This field 
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will have a pointer that will point to any additional delay matrix extensions in the 
chain. 


oll delavit ai) 
Nelay Mat, Pointer 





Figure 2.3 The delay matrix extension 


The Figure 2.4 presents the modified descriptor structure for a multidescriptor 
case for a gate with N outputs and 2N inputs. 

A complete presentation of the descriptor records and their interconnections can 
be seen in Mahmood( [Ref. 7] ). 


E. THE SIMDATA FILE 

The compiler program creates a SIMDATA file for each circuit that we want to 
implement. The size and the code that appears in this file will depend of the size and 
the specifications of the circuit that we want to simulate. Figure 2.5a and Figure 2.5b 
represent the SIMDATA file for the circuit that was presented in the Figure 2.1, 

The SIMDATA file 1s composed of 5 parts that contain all the information 
necessary for the simulation. To create this file the compiler program generates various 
sets of numbers, each set having a specified meaning. The parts that compose the 
SIMDATA file are: 


1. a part that contains all the information about the description of the circuit, in 
. terms of what are the descriptors that appear in the circuit and how they are 
connected. This part is called the DESCRIPTOR PART of the file. 


2 a part that contains all the default delays for each gate that 1s part of the 
circuit. This part is called DEFAULT DELAY PART. 


3. a part that contains all the gates that have their delays modified by instructions 
of the VOHL program. This part is called MODIFIED DELAY PART. 


4. a part that contains all of the initial values of variables as determined in the 
VOHL program. This part is called INITIALIZATION PART. 
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Figure 2.4 A modified descriptor structure 


5. a part that contains all the variables that will be printed as output of the 
simulation. This part is called PRINTOUT PART. 


As said before, all the parts are represented by sets of numbers. Some of these 


numbers really contain information about the gates or inputs that are being described 


and the other numbers in the set are used to inform the simulator about the next 


number that will appear in the file. These numbers were called “separators”. 
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Figure 2.5a The SIMDATA file for the demonstration circuit 
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Figure 2.56 The SIMDATA file for the demonstration circuit(continued) 


This file is built when the compiler is reading the VOHL description of the 
circuit. The DESCRIPTOR PART is formed when the compiler reads the structure of 
the circuit, with the inputs to the system in the front of the file and the other 
descriptors being written when the description of the circuit is read. After that the 
DEFAULT DELAY PART is built, using the information that was stored in the 
DESCT table. When the system finishes the construction of this part it reads the 
DEFINE part of the VOHL description and builds the MODIFIED DELAY PART of 
the SIMDATA file. The INITIALIZATION and the PRINTOUT parts of the file are 
built when the compiler reads the INITIAL and PRINT parts of the VOHL 
description. As we can see, the SIMDATA file is built in the same order that the 
circuit is read by the compiler. | 

For a better understanding of the SIMDATA file, the various parts from which it 
is formed will be discussed in the next sub-sections. 

1. The DESCRIPTOR part 

This part of SIMDATA has the function of presenting all the inputs and gates 
that make up the circuit that we want to simulate. Like all the other parts this part is 
composed of sets of numbers, each one with its own meaning. The size of each set 
depends of the type of gate or input that is being described. We have 3 different 
possibilities, that will be showed below. 
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a. INPUT descriptor 
The descriptor that describes an input has the following format: 
33 X.¥ 1 x 0 7 lex 


As we can see it is composed of 11 numbers, with the following 


significance: 


I: 
2 


33 - beginning of a descriptor 


xX - descriptor number, that corresponds to the number that appears in the 
second column of the SYMT table in the row that has the input that is being 
described. 


y - primitive (same of the PRIMITIV.DAT file), that in the input case 1s 0. 


z - number that represents the variable name. This number is found by the 
transformation of the variable name to its value in ASCII code, modified by a 
decimal constant of 11 if the value is the same of another variable (for example, 
if we have two variables called A2 and Bl, the ASCII representation of both 
will be 115. If A2 appears first in the list of variables it will have the value 115, 
while B1 will have the value 126). 


1,0, 1, 2, 1 - separators 
In the SIMDATA file, each input will have such a descriptor. In the 


example shown in Figure 1 we have 3 of these descriptors. 


b. Single output gate descriptor 
This is the kind of descriptor that describes almost all the primitives that 


the system has supported until now. For each case we have the following gates: 


l. 


ie 


a 


4. 


With one input 
primitive 5- INVERT 


with two inputs 
primitive 1 - AND 
primitive 2- OR 
primitive 3 - NAND 
primitive 4 - NOR 
primitive 6 - EXOR 


with three inputs 
primitive 7 - ANDTHRE 
primitive 8 - NANDTHR 
primitive 13 - ORTHREE 
with four inputs 
primitive 11 - ANDFOUR 
primitive 12 - NANDFOU 
primitive 14 - ORFOUR 
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As shown, each descriptor has a place for 2 inputs and 1 output. As we are 
describing gates that have only one output, in the first two cases shown above only 
one descriptor record is needed to entirely describe the gate. In the cases with more 
than 2 inputs we will need another descriptor to put the inputs that do not fit in the 
record. This new descriptor record is called an “extension descriptor” and it will be 
connected to the original descriptor and will have the same functions as the original 
descriptor. The descriptor will be created in the SIMDATA file each time we finish the 
description of the even inputs for a gate. It will appear as a set of 8 numbers in the 
following way: 

leh) Vale OX 

where: 

X - descriptor number of the original descriptor 
2. y- descriptor number of the extension descriptor 


In the general case the single output gates are described in the following 


way: 
33 xy2A3ALA8X1ILAIILWI1XI9W1X12W 
2B3B1B8x1Bllwlx9wI1xl2w 
IxISkKIKMWUx2C3C1IC8KICILWIKIW1LK12wW 
2D3D1D8k1IDILW1LkKkIWILkK12w 
where: 

1. 33 - beginning of a new descriptor record 

2. x - descriptor number for the output (original descriptor) 

3. Yy - primitive number(corresponds to the primitive number in_ the 
PRIMITIV.DAT file) 

4. A - descriptor number of the input 1! 

5. B - descriptor number for the input number 2(if have) 

6. C- descriptor number for the input number 3(if have) 

7. D - descriptor number for the input number 4(if have) 

8. W- input number (0 for inputs 1, 3,...and 1 for inputs 2, 4,...) 

9. k - descriptor number for the extension descriptor(if have) 


It is important to note that in the SIMDATA file will appear only in the 
part of the descriptor that corresponds to the number of inputs of the gate. 


or 


c. Multiple output gate descriptor 

In this case, if we look at the Table 1, we can see that this type of gate has 
n descriptors in the table, where n 1s the number of outputs of the gate. In the single 
output case we saw that we needed to add an extension descriptor when the number of 
inputs was greater than 2. In the multiple output case we will need extension 
descriptors only when the number of inputs exceed twice the numbers of outputs, 
because we already have descriptors with the additional input positions available when 
the others descriptors have no more spaces. In this case, we can say that the “primary 
descriptor” is the one that appears first in the Table 1, with the others being “secondary 
descriptors’. The interconnection of the “secondary descriptors” with the “primary 
descriptors” 1s done with the same group of numbers that does the interconnections of 
the extension descriptors with the original descriptor in the single output case, with the 
difference that in this case these interconnections appear before the “primary 
descriptor” , while in the single output case they appear after the original descriptor. 

If we call a, b, c,...,n the descriptors that correspond to the outputs of 
the gate and A, B, C,... ,P the descriptors that correspond to the inputs of the gate, 
the descriptor for this type of gate in the SIMDATA file will be: 

laisblbléalblicici6b: 32] aieieieneiomn 
3S3ay2AZ3AITA8alAllwla9¥wlal2w 
2B3B1I1B8alBllwla9¥wlal2w 
Z2C3CIC8bICIIwlb9wl biznaee 


where: 
a, b, c,..., mn - descriptor number for the outputs 
A, B, C,...,P - descriptor number for the inputs 


y - primitive number 


2 os 


W - input number (0 for the odd inputs, 1 for the even inputs) 
2. The DEFAULT DELAY part 
This part of SIMDATA has the function of presenting all the default delays of 
the gates that were used in the description of the circuit. This part 1s also composed of 
a set of numbers, each number having one value of delay from a specific input of the 
element to a specific output of the same element. Also in this part depending of the 
number of outputs of the gate that is being described, we have two different 


possibilities. 
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a. single output gates 
In the general case, the default delay part of single output gates is written 

in the following way: 

GAS2BS53C5S4D55E 

Grex oo 255 3°G. 7]. where 
A - descriptor number (same of the SYMT table) 
B - rise delay from input 0 to output 0 
C - fall delay from input 0 to output 0 
D - rise delay from input | to output 0 
E - fall delay from input | to output 0 
F - rise delay from input 2 to output 0 


OS 


G - fall delay from input 2 to output 0 
As in the descriptor part, the only numbers that appear in this case are 
those that correspond to the number of inputs to the gate. The part that starts with the 
number 6 will appear only if the gate has more than two inputs. 
b. multiple output gates 

In this case, the set of numbers that describe the multi output case are 
more complicated than the single output case. This is due to the fact that the multi- 
Output case does not follow a rigid formation rule, but rather depends on the number 
of inputs and outputs that the gate has. Basically, those descriptors are composed of 
the following set of numbers: 

4AS2B5S3C54D55E 
I4FI6FGI7FHI8FII9FJ 

Ie. LIGEMIZTLNISLOISLP 
Peso loORIZOSISQTISQU.... 
mae soltasosbs4c55d.... 

fey oskS4)55m.... 

We can divide this set of numbers into various subsets with specific 
functions. The first set of numbers starts in the line that begins with the number 4 and 
goes until the end of the line preceding the line that starts with the number 6. In this 
set of numbers, the delays from inputs 0 and | to all of the outputs of the gate are 
described to continue the interpretation. 

1. A - descriptor number 
2. B- rise delay from input 0 to the output 0 
3. C- fall delay from input 0 to output 0 


39 


4. D- rise delay from input | to the output 0 
5. E- fall delay from input | to the output 0 
The line that starts with the number 14 describes the delays from those 
inputs to the second output of the circuit. The significance of the numbers in that line 
are: 


1. F - position occupied in the matmx delay by the corresponding output. The 
matrix delay is the descriptor created to describe the extra delays needed to 
totally describe the circuit. It starts with an index 0 and increases by | each 
time that a matrix is inserted to describe extra delays. 


2. G- rise delay from input 0 to the output | 

3. H - fall delay from input 0 to output 1 

4. I-mnise delay from input | to the output | 

5. J - fall delay from input | to the output I 

The line that starts with the number 15 describes the values of the delays 

from those inputs to the next output of the gate. The number of lines that begin with 
15 is the number of outputs of the gate minus two, that were already described in the 
previous lines. The meaning of the values in those lines are: 

1. K - position occupied by the previous line in the matrix delay 
L - position occupied by this line in the matrix delay 
M - rise delay from input 0 to the output n 
N - fall delay from input 0 to output n 


O - rise delay from input | to the output n 


Oe ee 


P - fall delay from input | to the output n 

The next subset starts in the line that begins with the number 6 and finishes 
at the end of the line preceding the line that starts with the number 7. This subset of 
numbers describes the delays from inputs 2 and 3 to all the outputs of the circuit. The 
meaning of the numbers are the same as the first subset, except that in this subset the 
inputs will be 2 and 3 instead 0 and I. 

The next subset begins in the line that starts with the number 7 and'finishes 
at the end of the line preceding the line that starts with the next 7. Each subset 
describes the delays from two more inputs to all the outputs of the gate, and we will 
have as many subsets as needed to describe all the other inputs of the circuit. The 
meaning of the numbers in those subsets are the same as the previous subsets, with the 


difference that in these subsets the descriptor number does not appear. 
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One important point in this case is that the values of the delays will appear 
in the description only if there exists a possible connection between the input and the 
output, 1e., if, for example there is no connection between the input | and the output 
Q, the numbers 5 4 D 5 5 E will not appear in the first line of the description. 

3. the MODIFIED DELAY part 
This part of the SIMDATA file is built only when the user defines gates with 
delays different of the default delays already defined. The syntax of this part will 
depend on the gate and the output and input that will have non standard delay values. 
For example, for the gate with output A2 in Figure 2.1, the syntax will be the 
following: 

4454344532 

This will happen because A2 is the descriptor number 4 in the SYMT table 
and because the modified delays are the rise delay from the input | to output 0 and the 
fall delay from the input 0 to the output 0. 

For the case of A3 in the same figure this part of the file will be: 

6552245543 

The 6 appears in front of the descriptor number, which in this case is 5, 
because the delay that 1s being modified is the rise delay from the input 2 to the input 
0. The other alteration is the fall delay from the input 1 to the input 0. This part of the 
SIMDATA is built in the order that the gates appear in the control part of the 
description of the circuit. 

4. the INITIALIZATION part 

This part of the file is built when the compiler reads the variable names that 
appear in the INITIAL part of the description. The code in this part appears in the 
following way: 

20 21 23 24 25 26a27b 
20 22 23 24 25 26c 27d 
P0222 23 2425 26¢e27f.... 


where: 
imueea, c, €,.. . - descriptor number 
Eee, Gd, f,... - initial values of the descriptors a, c, e,... respectively 


The second line of the code will be repeated until all the values that are to be 
initialized had being coded. 


4) 


5. the PRINTOUT part 
This part of the SIMDATA file is built when the compiler reads the 
PRINTOUT part of the VOHL description. This part of the file is composed of the 


code shown below, repeated as many times as the number of variables that we want to 


print. 
28a0A 28 a1 B 28 a2 Ga 2a x 
28 {at1) 01 28 (afi) ld 29a eee 
where: 

l a, (at1),...- order that the variable will appear in the printout (is the same 
order that is read by the compiler in the description) 

2. A,B, C,... - characters that form the name of the variable in the position 
(order) a. 

3. I,J,...- characters that form the name of the variable that appear in position 
(order) (at 1) 

4. X,y,... - descriptor number of each variable. 


After the compiler has finished writing the code for all the variables that will 
be printed out, the following code is written in the file: 
3031 a32250 

where a is the number of variables that will be printed. 

For example, in the circuit shown in Figure 2.1 the code for this part will be: 
2800A 2900 
28a OVA 238-1 129i 
28 20B 2922 
28 3: OTA 253 18 28 32 2 
2840A 284152947 
SOrS les 3250 , 

This part also is responsible for finishing the SIMDATA file. 
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iI. APPROACHES AND MODIFICATIONS FOR THE EDITOR 


A. POSSIBLE APPROACHES 

The multilevel simulator uses basically two data structures to allow the 
simulation of any circuit. The first one is the SIMDATA file, that is created by the 
compiler program, and the other is a set of records, called descriptor records, that is 
written by the timing wheel simulator. As discussed in the Chapter 2, the SIMDATA 
file is created while the system is compiling the circuit that we want to simulate and the 
descriptor records and their interconnections are done when the system is doing the 
simulation of the circuit. 


MODULE : COMPILATION_DEMO ; 
INPUTS : A, B: 

OUTPUTS : ¢ : 

ivreowe INELERNALS =: SL, AZp AS ? 


X1 
X3 


e 
é 


DEFINE ::; 
INITIALIZE ; X1=0, X2=0, X3=0 ; 
Bee LOU A, B, Q; 





Figure 3.1 The example circuit 


For example, suppose that we want to simulate the circuit that was presented in 
the Figure 1.7 and is repeated in the Figure 3.1. During the compilation of this circuit 
the compiler creates the file that is presented in Figure 3.2. With the data presented in 
this file, the simulator program creates the necessary descriptors and makes their 
interconnections, presented in Figure 3.3. 

The goal of the EDITOR program is to allow the possibility of modification and 


simulation of a circuit, without the necessity of a new compilation of the entire circuit. 
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Figure 3.2. The SIMDATA file for the example circuit 


Suppose, for example, that we want to change the gate E of the Figure 1.7 (output X3 
in the Figure 3.1) by an AND gate. The new circuit is presented in the Figure 3.4 . The 
SIMDATA file for this circuit is presented in Figure 3.5 and the descriptor records for 
the modified circuit is presented in Figure 3.6 . As we can see both structures are 
different from the original structures for the example circuit. 

Suppose that instead of replacing one of the gates of the circuit we want to insert 
an AND gate between the gates E and F of the original circuit (X3 and X4 in the 
Figure 3.1). The new circuit is presented in Figure 3.7, with the SIMDATA file and the 
descriptor records for this circuit presented in Figures 3.8 and 3.9, respectively. As we 
can see, the structures are different from the structures presented in the previous 
examples. 

Any modification that we want to introduce in the circuit will change both 
structures used for the simulation, the SIMDATA file and the descriptor records. Since 
the EDITOR program will skip the compilation part of the program it will need to 
change one of those structures. In this way, we have two possible approaches for the 
editor program, the first being the modification of the SIMDATA file and the second 
being the modification of the descriptor records and their interconnections. 


If we choose the second approach some important points to be considered are: 
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Figure 3.3. The descriptor records for the example circuit 
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MODULE : COMPILATION_DEMO ; 
INPUTS : A, B ; 

OUTPUTS : : 

TYPES : INIERNALS : 41, X%Z,- X3 ; 


Xl = AND (a B); 
ae B} 


X3 
X2 = INVERT (Xl 
Q = OR (X2, X3); 


DEFINE :; 
INITIALIZE : X1=0, X2=0, X3=0 ; 
ee aa A, B, Q; 


e 
g 





Figure 3.4 The example circuit(modif. 1) 
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Figure 3.5 The SIMDATA file for the example circuit (modif. 1) 


we will have several types of possible modifications of the circuit, like 
replacement, insertion, or deletion of gates, inputs, and outputs, or modification 
of delays, change of initialization of variables, and change of printout of the 
circuit. To do that, the system must not only change the interconnections cf the 
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Figure 3.6 The descriptor records for the example circuit(modif. 1) 
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MODULE : COMPILATION_DEMO ; 
INPUTS]: A,B: 

OUTEUTS = g ; 

: INTERNALS : Kl, X2, X3, Xé4 ; 


DEFINE :; 
INITIALIZE : K1=0, K2=0, X3=0, X4=0 ; 
Sa ee A, (5. .0> 





Figure 3.7 The example circuit(modif. 2) 
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Figure 3.8 The SIMDATA file for the example circuit (modif. 2) 
descriptors, but im some cases also create new descriptors, delete existing 


descriptors, insert new delay matrices, and so on. As we can see it must be a 
very complicated program to allow all those possibilities. 
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Figure 3.9 The descriptor records for the example circuit(modif. 2) 
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2. The timing wheel simulator reads the SIMDATA file when it starts to do a 
simulation. If we decide to change the descriptor records we will not have the 
opportunity to save the modifications that were done because the SIMDATA is 
not modified. The next time that we try to do the simulation of the circuit the 
simulator will read the SEMDATA without the modifications. As a result, any 
modification that was made to the circuit will be a temporary modification. If 
Wwe want to do a definitive modification we must compile the circuit again, 
resulting in an editor that does not have a practical utilization. 


If we decide to make the modification of the SIMDATA file, all the problems 
that were discussed above are avoided, because changing the SIMDATA file can be 
made a definitive change, depending of the needs of the user. Also in this case the 
system does not need to know if it will need to insert or delete a record, or change 
interconnections, because it is working with pieces of the file that are always treated in 
the same way, With small variations depending on what 1s being executed. 

Following the considerations presented above we see that the best approach to 
the EDITOR program is the modification of the SIMDATA file and this will be the 
way that the editor will be designed. 


B. MODIFICATIONS 
The original compiler and simulator programs were not prepared to support an 
EDITOR program, because they were not designed with this option. The only data 
structure that is saved is the SIMDATA file, that contains all the information about 
the circuit, but this structure cannot support the editor by itself. Because of that, some 
modifications needed to be made in the COMPILER and TIMING WHEEL programs 
to allow a posterior editing of the circuit. 
The modifications that were done in those programs are the following: 
I. division of the SIMDATA in 5 different files. 
2. modification of the SYMT table; 
3. creation of the DEL table; 
4. creation of the INP table 
The modified CADD program and its precompilation routine (PRECOMP) can 
be seen in Appendix A and Appendix B. The modified trming.wheel program can be 
seen in the Appendix C. 
The next sub-sections will present in detail all the modifications that were made 
to the system. In each of the cases an example of the modification 1s presented, and all 


the examples will have as origin the circuit presented in the Figure 2.1. 
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1. The SIMDATA file 

The different parts of the SIMDATA file are completely independent, 1.e., 
each part of the file does not depend on others. When the modifications are made in 
the system only in a few cases, like the REPLACE case, will the editor need to work 
with the entire file. In all the other cases the modifications will be done in specific parts 
of the file, and it will not be necessary to read the entire SIMDATA. 

Following this statement we can see that it is possible to save time during the 
execution of the EDITOR program if those parts are already separated. The compiler 
program was modified in a way to store the previous SIMDATA file in 5 different files. 
This modification in the program increased the compilation time in about 5%, but it 
saves much more time in the EDITOR program, as will be seen in the next chapters. 

The 5 files that are being used now are: 

1. DESCRIPTOR file - This file, that can be seen in Figure 3.10, is the copy of 
the descriptor part of the SIMDATA file. All the variables that appear in the 
description of the circuit are described in this file, with their position in the files 
as a function of the position where the variable was described. Its file extension 
will be DCF, i.e., if the circuit that is being simulated is the ALU, this file will 
have the name ALU.DCF. | 

2. DEFAULT DELAY part - This file, that can be seen in Figure 3.11, is the copy 
of the default delay part of the SIMDATA. As in the descriptor file, all the 
variables that are part of the circuit are presented in this file, with their 
positions in the file being a function of the position in which the variable 
appears in the description of the circuit. The extension that is used for this file 
is DDF. 

3. MODIFIED DELAY file - This file, that can be seen in Figure 3.12, is the copy 
of the modified delay part of the SIMDATA. The only variables that appear in 
this file, as shown in Chapter 2, are those that, in the description of the circuit, 


received a delay with values different from the default values. The extension for 
this file is MDF. 


4. INITIALIZATION file - This file, that can be seen in Figure 3.13, is the copy 
of the initialization part of the SIMDATA. Also in this case the only variables 
that appear in this file are those that were initialized in the INITIAL part of 
the description of the circuit. The extension for this file is INT. 


». PRINTOUT file - This file, that can be seen in Figure 3.14, is the copy of the 
printout part of the SIMDATA. The only variables that appear in this file were 
requested for printout in the description of the circuit. The extension for this 
mleas.PIT. 
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Figure 3.10 The DESCRIPTOR file 


2. The SYMT table 
As was shown in Chapter 2 (Table 1) the original SYMT table is built in the 
order that the variables are declared in the VOHL syntax of the circuit, while the 
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Figure 3.11 The DEFAULT DELAY file 
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Figure 3.12 The MODIFIED DELAY file 


descriptor part and the default delay part of the SIMDATA file are built in the order 
that the circuit 1s described. 

If the way to edit the circuit is by the modification of the SIMDATA, we need 
to know what position in the file is being described by the variable that we want to 
edit. In the original compiler we do not have this possibility because, after finishing the 
compilation, the system loses track of the position of the variables. 

To find the correct position to be modified in the different files the system 
needs to know all the information about the space in each file that is occupied by each 
variable. To allow the presentation of this information the SYMT table was modified 
and presents the structure that can be seen in Table 3. 
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Figure 3.13 The INITIALIZATION file 
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Figure 3.14 The PRINTOUT file 


The first four columns in the table are the same as the original table, except 
by the variables presented in different order. The order of the presentation of the 
variables was changed to allow them to be presented in the same order that thev 
appear in the DESCRIPTOR and DEFAULT DELAY files. 

The building of the table starts when the compiler reads the declarations of 
the VOHL syntax of the circuit. The variables are placed in the table and receive a 
descriptor number just as in the original compiler. When the compiler starts to read the 
description of the circuit it begins to swap the position of the variables so that their 
new positions in the table are the same as they appear in the files. For example, with 
this change we know that if we want to find the position of the variable A4 it will be 
the ninth descriptor in the descriptor file and the sixth descriptor in the default delay 
file because inputs do not appear in the default delay file. 

The column despos (descriptor positions) presents the number of spaces that 
are occupied by each variable (descriptor) in the descriptor file. By this column, that is 
completed when the compiler writes the code for that descriptor in the file, we can see 
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that, for example, the variable A3, that is an output of a three input NAND gate, has 
a code in the descriptor file that needs 71 spaces to be written. Also, as will be 
explained later, when the Editor try to find the descriptor in the file it needs only to 
sum the values in the column corresponding to the variables that appears in the table 
before the desired variable. For the case of the same variable we can see that the 
descriptor file has 401 spaces (11 + 11 + 11 + 23 + 43 + 43 + 435 + 43 + S30 
+ 79) occupied before starts the description of the variable. 

An important point in the fulfillment of this column is the case of the 
multioutput gates. If a gate has n outputs it has n variables that will appear in the 
SYMT table. However, when the compiler makes the code corresponding to this gate 
all the connections between the descriptors will be written at the same time and, 
consequently, the system will only put a value in this column for the variable that 
corresponds to the first described output for this gate. A value of 0 will be put in all 
the other variables that correspond to outputs for the same gate. This can be seen in 
the Table 3 for the variables A7, A8 and A9 that are outputs of a SR gate. The only 
variable that has a value in the table is A7, with the number 79 in the column. The. 
other two variables have the number 0 in this column. This says that this gate needs 79 
spaces to completely describe its connections in the descriptor file. 

The next column, delpos (delay positions), presents how many spaces are 
occupied by each descriptor in the DEFAULT DELAY file. All the observations that 
were made in the previous paragraphs for the despos column with respect to the 
descriptor file can be applied for this column with respect to the default delay file. 
Using this column we see that the variable A3 needs 22 spaces to describe its default 
delays and that it has 162 spaces (8 + 14 + 14 + 14 + 14 + 14 + 22 + 62) 
occupied in the default delay file before this variable starts to be described. Also for the 
multioutput gates the same concepts that were used in the previous column is used in 
this one. 

The other 3 columns will also be used to find the position of the variables in 
the other files. The ini_num (initialization position) column shows the position where 
the variable appears in the initialization file, if it was an initialized variable. [f the 
number in this column is zero the variable was not initialized and, consequently, does 
not appear in the file. The other numbers that appear in this column show the order 
that the variable appears. In the example shown, the order of the variables in the 
initialization part is: A85, A3 and Al0. 
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The column pri_num (printout position) presents the position where the 
variable appears in the printout file, if a printout of the variable was requested in the 
VOHL description of the circuit. As the size of the printout code is function of the 
number of characters in the variable name, the column pri_val (printout spaces) 
presents the number of times that the code of printout appears in the printout file to 
represent that variable. If the number 0 appears in the “printout position” column, the 
variable is not an output of the system, 1.e., no printout of this variable was requested. 
The other numbers present the position of the variable in the PTT file, with the 
numbers of the next column showing, in this case, how many times the code was 
repeated. In the example, the order of the printout code will be: A (with only | 
appearance of the code), Al (with 2 appearances), B (1 appearance), A85 (3 
appearances) and A5 (2 appearances). 

3. The DEL table 

The modified delay part of the SIMDATA file is built when the compiler 
reads the DEFINE part of the VOHL syntax. The delays will appear in the file in the 
same order that they were defined. For this reason, the EDITOR program needs to 
know in what order the delays will appear in SIMDATA to make the modifications. 

The DEL table, that can be seen in Table 4, was created to allow the system 
to have a record of how the delays were placed in the file. 

The meaning of the columns of this table are: 

I. index - an index for the table 
2. desc. - the descriptor number of the variable that will have its delay modified. 


3. type - presents what delay is being modified, if it is the rise delay (code 10) or 
the rise delay (code 11). 


input - input number which is having the delay modified. 
output - output number which is having its delay modified 
. Spaces - how many numbers will be printed in the file for this modification. 
4. The INP table 
The INP table, that can be seen in Table 5, was created to allow the system to 
store the inputs to each gate of the circuit. The actual system supports gates with up 
to 10 inputs, and, consequently, the table has space for 10 inputs. This table was also 
created to allow updates to the fanload of each gate when a modification (replace, 
insert, delete,. . .) is done in the circuit. 
The meaning of each column in this table is: 


I. name - name of the variable that is being described. 
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nb. inp. - number of inputs of the gate 

inp | - variable that goes in the input 1 

inp 2 - variable that goes on input 2 (if input exists). 
inp 3 - variable that goes in input 3 (if input exists). 
inp 4 - variable that goes in input 4 (if input exists). 
inp 5 - variable that goes in input 5 (if input exists) 

inp 6 - variable that goes in input 6 (if input exists). 
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inp 7 - variable that goes in input 7 (if input exists). 
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inp 8 - variable that goes in input 8 (if input exists). 
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inp 9 - variable that goes in input 9 (if input exists). 


inp 10 - variable that goes in input 10 (if input exists). 


One important point to notice in this table is that for the multi-output gates 


case the only variable that is described is the last output presented in the description of 


{ite cate: 
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5. The timing-wheel simulator 

























The original timing-wheel simulator was designed to receive the entire 
SIMDATA file, read it, create the descriptors and make their interconnections. As the 
compiler program was modified to divide the SIMDATA into 5 different files, the 
simulator program also needed to be modified to rebuild the SIMDATA file before the 
simulator starts-to read the file. The new timing-wheel simulator program can be seen 
in Appendix C. 
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IV. DESIGN, IMPLEMENTATION AND EXECUTION 


A. THE DESIGN 
As stated in Chapter | of this thesis, the Editor program allows fourteen 
operations to be done to any compiled circuit. These operations are: 
1. Replace a gate - REPDAGE- 


2. Insert a gate - INSERT; 
3.. Welete a gate= DEE TE. 
4. Modify delay - ALTDEL; 
5. Adda printout - ADDPRI; 
6. “Delete a printout - DERREI- 
7. Change an initialization value - ALTINI; 
8. Insert an output - INSOUT; 
9. Delete an output - DELOUT; 
10. Change the delays in a type of gate - ALTGATE; 
11. Insert input - INSINP; 
12. Insert input and gate - INSINPG; 
13. Delete an input - DELINP; 
14. Delete an input and a gate - DELINPG; 


The first step in the design process is to define what modifications are needed, 
how these modifications will be performed and the limitations imposed by each 
modification. Also in this first part it is necessary to consider the limitations imposed 
on the system by the editor. 

The next subsections show the design decisions that drove the implementation of 
the EDITOR program. 

1. Replace gate 

This command will allow the substitution of one or more gates by another 
gate, with the restriction that ae new gate must have the same number of outputs as 
the replaced gate(s). The system was designed with this feature because we supposed 
that when the user wants to replace a gate he/she does not want to modify the number 
of internal variables of the circuit and, because of that, the number of the outputs of 
the new and the old gates have to be the same, because the outputs of the gates are 


really the internal variables of the system. 
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In this part when a gate replaces another gate in the system, the replacement 
process maintains the default characteristics, i1.e., the gate will have unmodified delays 
Or initialization values, unless the user makes changes by using another editor 
command. Because of this the system needs to search all the files that compose the 
description of the system, eliminating all the references to the descriptor number of the 
old gate in the descriptor file, default delay file, modified delay file, and initialization 
_ file, and inserting the description of the new gate only in the descriptor file and in the 
default delay value. Another important consideration in this case is that as the variable 
name was not changed with the replacement of the gate and its descriptor number was 
not changed either. 

2. Insert and delete gates 

In this case the use of the insert or delete commands will change the number 
of internal variables of the circuit, by deleting or adding variables to the circuit. Also in 
this case, because the system has a different implementation, some of the remaining 
gates need to be changed. The important point about this change is that the only thing 
that will change in the gate is one or more of its inputs for the gates that are affected 
by the change of variables. When the system replaces this gate the only file that will be 
modified is the descriptor file, to allow the modification of the inputs, because all the 
other characteristics of the gate in the circuit remain unchanged. 

3. Add or delete inputs 

The system has two possibilities for the add and delete commands: one for the 
case where only the input itself is added to (deleted from) the circuit, and other for the 
case where together with the input another gate needs to be added to (deleted from) 
fie circuit. | 

In the first case the system needs to add (delete) an input descriptor to (from) 
the descriptor file and after that make a modification in the circuit in the same way 
that was done in the insert/delete case (only the inputs of the gate changes). In the 
second case, if we are inserting an input and a gate, the system needs to add the input 
descriptor, a new gate in the descriptor file and in the default delay value, and to 
modify the inputs of the gates affected by the changes. If we are deleting an input and 
a gate the system needs to delete the input descriptor, delete the gate descriptor in all 
the files where it appears and modify the inputs of the gates affected by the deletion. 
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4. Add or delete outputs 
The only modification that will be done in the circuit is the insertion (deletion) 
of the descriptor that describes the gate that is being inserted (deleted), because this 
insertion (deletion) will have no effect on the other gates of the circuit. 
5. Initial values 
The original system allows 3 values for the initialization of variables: 0, 1 or 2 
(undefined). The EDITOR program will allow a fourth value for initialization that will 
be the number 3. When the program finds a request to initializé a variable with a 3 the 
program understands that this variable was already initialized and that no further 
action is wanted. In this case the part of the initialization file that descnbes the initial 
value of this variable will be deleted. 
6. Modify delays or gate 
Both commands have basically the same action, with the difference that the 
modify gate (ALTGATE) is more general than the modify delay (ALTDEL), because 
the modify delay command will change a specific delay of a specific gate, while the 
modify gate command will change a specific delay for all the gates of the referenced . 
gate type that appears in the circuit. Any positive integer number could be used as a 
delay value in this case, but if the delay value was defined as 0 it will be understood by 
the program that this specific delay was already modified and the user wants it to | 
return to its default value. 
7. The continue command 
This command was designed to allow several different modifications to be 
done in only one run of the EDITOR program. When the program finds this command 
(represented by the symbol # ) it understands that the modification that it is doing 1s 
finished and that it will find another keyword to begin another modification. For 
example, with this command we can make a REPLACE, followed by an ALTDEL, 
followed by an ALTINI, ete. 
8. Syntax of the commands 
One of the important points in the design of the system was the definition of 
the syntax of each command. This is an important point because the EDITOR 
program needs to know the syntax for each command before it is written. The next 
section will present the syntax for all the commands for the EDITOR program. 
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9. Limitations for the system 

Due to the way that the CADD program was designed, the EDITOR program 
is limited because it will not allow changes in user defined circuits as a block. When the 
system is compiled the first time, the user libraries (the sub-modules of the original 
circuit) are expanded to a lower level, until the expansion reaches the point where all of 
the description of the circuit is done by using system defined primitives. As we can see, 
in this case the system does not keep track of the user defined libraries. If the user 
decides to make changes in the circuit those changes must be based on the system 


defined primitives. 


B. THESYNTAX OF THE COMMANDS 
The syntax for all the commands that are allowed in the EDITOR program is 
defined in this section. The description of each command will be done using the BNF 


notation. 
1. The REPLACE command 
REPLACES: 
{ 
<CKT> 
} 
END; 
where: 
<CKT> ::= <varl> = <prim> ( <var2> ); <CKT> | 
<varl> = <prim> ( <var2> ); 
<varl> ::= output of the gate that is being replaced 
<prim> ::= a primitive existing in the library of the system 
<var2> := <var> , <var2> | 


<var> (the number of repetitions will be a 
function of the number of inputs 
to the gate) 

<var> ::= one of the variables defined in the circuit. 
2. The INSERT command 
INSERT >: <var3>": 
{ 
<CKTI1> 
<CKT> 
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} 


END; 
where: 
<var3> := <vard> , <var3> | 
< var4> 
<var4> ::= name of the variable to be inserted 
<CKTI> := <var4> = <prim> ( <var2> ); <CK TI 
<var4d> = <prim> ( <var2> ); 
<prim> ::= a primitive existing in the library of the system 
<var2> := <var> , <var2> | 
<var> (the number of repetitions will be a 
function of the number of inputs 
to the gate) 
<var> ::= one of the variables defined in the circuit. 


<CKT> ::= the same definition as the REPLACE case. 
3. The DELETE command 
DELELE: <varo0 


{ 
<CKT> 
} 
END; 
where: 
<var5> ::= <var6> , <var5> | 
<var6> 
<var6> ::= name of the variable to be deleted 


<CKT> ::= the same definition as the REPLACE case. 
4. The ALTDEL command 


ALTDEL ; 
{ 
<CKT2> 
} 
END; 


where: 
<CKT2> ::= <var> : <OPT1> (<INP>,<OUT>) = 
<VAL> ; <CKT2> | 
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=yar= 9 =OPTI> (<INP>,<OUT>) = 


<VAL> 

<var> ::= one of the variables defined in the circuit. 

<OPTI> ::= <RISEDEL> | <FALLDEL> 

<INP> ::= gate input number corresponding to the path to be 
modified 

<OUT> ::= gate output number corresponding to the path to 
be modified 

<VAL> ::= value of the new delay of the path 


5. The ADDPRI command 


where: 


ADDPRI: <var7> ; 


} 
END; 
<var/> 3::= <var8> , <var/> | 
<var8 > 
<var8> ::= variable name of the variable to be printed 


6. The DELPRI command 


where: 


DEUPRivte< var] >: 


7. The ALTINI command 


where: 


} 
END; 
“Vani t3— = Varo= = Vat) > 
< var8 > 
<var8> ::= variable name of the variable to be deleted from 
the printout 
ALTINI; 
{ 
<CKT3> 
} 
END; 
Ohno =a = Valo valle CK T3> | 
<var9> = <value> ; 
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<var9> ::= name of the variable to have the initial value 
changed 
<value> := <0Q|1/2/3> 
8. The INSOUT command 
INSOUT : <var3 == 


{ 
<CKT1> 
} 
END; 
where: 
<var3> ::= <var4d> , <var3> | 
< var4d> 
<var4d> ::= name of the output to be inserted 
<CKT1L> ::= <var4d> = <prm> ( <var2> ); <CKTI1> | 
<var4> = <prm> ( <var2> ); 
<prim> ::= a primitiv existent in the library of the system 
<var2> := <var> , <var2> | 


<var> (the number of repetitions will be a 
function of the number of inputs 
to the gate) 

<var> ::= one of the variables defined in the circuit. 
9. The DELOUT command 
DELOUT ; <varsem. 


} 
END; 
where: 
<var5S> := <var6> , <var5> | 
< var6> 
<var6> ::= name of the variable to be deleted 
10. The ALTGATE command 
ALTGATE ; 
{ 
<Chipe 
} 
END; 
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where: 
ore — “om, ~Orll> (<INP>,<OUT=) = 


<VAL> ; <CKTS> | 
<prim> : <OPTI> (<INP>,<OUT>) = 


<VAL> 
<prim> ::= a primitive existent in the library of the system 
<OPTI> ::= <RISEDEL> | <FALLDEL> 
<INP> ::= gate input number corresponding to the path to be 
modified 
<OUT> ::= gate output number corresponding to the path to 


be modified 
<VAL> ::= value of the new delay of the path 


ll. The INSINP command 
INSINP: <varlO> ; 


{ 
<CKT> 
} 
END; 
where: 
<varl0O> ::;= <varll> , <varl0> | 
<varll> 
<varll> ::= name of the input to be inserted 


<CKT> ::= the same definition as the REPLACE case. 


12. The INSINPG command 
INSINPG : <varl0> ; <var3> ; 


{ 
<a ly= 
<CKT> 
} 
END; 
where: 
<varlO> := <varll> , <varl0> | 
<varll> 
<varll> ::;= name of the input to be inserted 
<var3> 3:= <var4d> , <var3> | 
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< Vara 
name of the variable to be inserted 


<var4> := 
<CKT1> := <var4d> = <prim> ( <var2> ); <CKTI> | 
<var4d> = <prm> ( <var2> ); 
<prim> ::= a primitive existent in the library of the system 
<var2> := <var> , <var2> | 
<var> (the number of repetitions will be a 
function of the number of inputs 
to the gate) 
<var> ::= one of the variables defined in the circuit. 
<CKT> ::= the same definition as the REPLAG@B case: 


The DELINP command 
DELINP==varl2 


{ 


IS; 


<CKT> 
} 
END; 
where: 
<varl2> := <varl3> , <varl2> | 
<varl3> 
<varl3> ::= name of the input to be deleted 
<CKT> ::= the same definition as the REPLACE case. 


14. The DELINPG command 
DELINPG: <vari2> ; <vanoes: 


fe 
<CKT> 
} 
EN: 
where: 
<varl2> ::= <varl3> , <varl2> | 
<varl3> 
<varl3> ::= name of the input to be deleted 
<varo> := <var6> , <var5> | 
< var6> 
<var6> ::= name of the variable to be deleted 
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<CKT> ::= the same definition of the REPLACE case. 


C. THE IMPLEMENTATION 

In this section we describe how the editor was implemented to perform the 
different modifications in the circuit. The implementation is presented in a general form 
for each of the commands, but the program that was written to perform the edition 
will not be discussed here. 

The programs that are necessary to perform the edition of any circuit are 
presented in the Appendices D and E and are sufficiently commented to allow an 
understanding of their behavior. The version that is presented in the appendices is the 
version designed for the IBM-PC/AT. With a few modifications, this version can also 
be used in the VAX system. 

Appendix F presents the files and programs that are necessary to support the 
compilation and edition of any circuit. Appendix G presents the meaning of each one 
of the files presented in the other appendices, and also presents the reason why those 
files are necessary. 

All the files and programs presented in the appendices were designed for the use 
of a IBM-PC AT or a compatible computer, with a hard-disk for storage of the files 
and programs and the capability of the using a RAM disk (virtual memory) to 
accelerate the program. 

The next sub-sections present the implementation for each of the commands in 
the EDITOR program. 

1. The replace command 

After reading the replace command given by the user, the EDITOR looks in 
the SYMT table (Table 3) to verify the position of the variable being replaced. While 
searching the table, the system can determine the location of the first field of the 
descriptor that corresponds to the gate being replaced, by adding the values of the 
DESPOS column for the variables that appears before the variable that is the output 
for the gate being replaced. After finding the correct place, the system, knowing the 
number of spaces occupied by the gate being replaced, can skip the number of places 
that describe this gate. In the place that was occupied by the old gate, the system can 
now introduce the description of the new gate, and after this insertion it can copy the 
rest of the descriptor file. 

The same procedure is used to replace the description of the default delay of 
the gate, with the difference that the system will work with the default delay file and 
will look for the DELPOS column, instead of the DESPOS column of the SYMT table. 
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As discussed in the beginning of this Chapter, the replacement of a gate 
umplies that the new gate needs to have delays with their default values and an 
undefined initial value. To verify if modifications need to be done in the files that 
describe these parts, the system looks to the DEL table, to verify if the descriptor 
number of the gate being replaced appears there. If the descriptor does not appear the 
modified delay file is not modified. However, if the gate appears in this table this 
means that some delay modification from default exists in the old gate, and this value 
needs to be deleted. To delete this value the system adds the values that appear in the 
“spaces” column of the DEL table, until it reaches the gate being replaced. With this 
value it can find, in the modified delay file, in what position this gate is being described 
and delete it from the file. This operation is repeated until all the appearances of the 
gate in the table are deleted. 

To verify if the gate was initialized in the previous simulation the system looks 
once more to the SYMT table (Table 3) and verifies, for the gate being replaced, the 
number that appears in the column init_position. If the number is 0 the variable was 
not initialized and the initialization file does not need to be modified. However, if the 
value is not 0 the variable is already initialized and needs to be deleted from the file. As 
each initialization description occupies 9 spaces in the file (as presented in the Chapter 
2), the system knows that if the variable to be deleted has a number 3 in the column, 
two variables are described before it, and consequently the file has 18 numbers before 
the description of the variable. With this number, the system can find the beginning of 
the descriptor in the file, delete the next 9 numbers and copy the rest of the file. The 
only problem in this case is when the variable to be deleted is the first to be described 
in the file, because the description of the first variable is different from the others. In 
this case the system needs to delete the first 9 numbers from the file and change the 
second number of the next descriptor from 22 to 21, because this descriptor will now 
be the first one in the file. 

During this process the tables (SYMT, DEL and INI) are corrected to 
represent the new state of the circuit after the replacement of the gate. 

2. The insert command 

The best way to put a new descriptor in the circuit is to place this descriptor 
at the end of the corresponding files. To allow this procedure the system, after 
receiving the command to insert a gate, looks to the SYMT table and, by using the 


values of the despos and delpos columns in the SYMT table, computes how many 
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numbers are placed in the descriptor file and in the default delay file. With those 
values the system can find the place in the files where the new descriptor will be placed 
and insert it in the correct place. The other files that describe the circuit are not 
modified because during the design it was assumed that when a gate is inserted in the 
circuit it is inserted with its default parameters and that no initial value is assigned to 
this gate. During the execution of this part the SYMT table, the DESC table and the 
INI table are modified to represent the new configuration of the system. 

With the insertion of a new gate in the circuit some modifications need to be 
made in the circuit to allow the new gate to appear as input to some of the other gates. 
As was presented in the beginning of this Chapter, it was decided that during the 
design of the system, this modification would consist only of modifications in the 
inputs of some gates. Because of that, the only file that will be modified in this part is 
the descriptor file, and this modification will be done in the same way that the 
modification of this file was done in the replace case. In this part, the INI table is also 
modified to represent the new form of the circuit. 

3. The delete command 

In this part, it may be necessary that all the files that describe the circuit must 
be modified. The first file to be modified is the descriptor file, and to do this 
modification the system needs to Know, as in the previous cases, where the descriptor 
that describes the variable to be deleted appears in the file. To find this position the 
system makes a search in the SYMT table to find the position of the variable, adding 
the values that appears in the DESPOS column to the variables that appear before the 
searched variable. With this value, the system can find the position of the variable in 
the file, and with the value of the DESPOS column for the gate being deleted the 
program knows how many numbers need to be deleted from the file. After deleting the 
corresponding number of places in the file the system copies the rest of the file. 

The next step will be the deletion of the default delays, that correspond to this 
gate, from the default delay file. The procedure for this deletion is the same procedure 
that was used in the case of the descriptor file, with the difference that, in this case, the 
system computes the values in the DELPOS column and not in the DESPOS column. 

The necessity of modifications in the other files is a function of the description 
of the circuit. The deletion of the descriptor from the modified delay file and from the 
initialization file, if necessary, is done in the same way that the deletion of those parts 


of the files in the replace case was done, and will not be repeated here. To verify if it is 


71 


necessary to modify the printout file, the system looks for the column print_position of 
the SYMT table, to determine if the variable is one of the variables that is being 
printed in the circuit. If the number that appears in this column is 0, the variable is not 
being printed and the file does not need to be modified. If the number is different from 
0 the variable is being printed and the file needs to be changed. If the number in this 
column is 1 the variable is the first to be printed and to delete it from the file the 
system only verifies, in the next column of the table, the number of spaces that are 
occupied by the variable description. This verification is necessary because the number 
of spaces occupied by one variable in the printout file is function of the number of 
characters that composes its name. By verifying the column spaces, the system Knows 
how many characters compose the variable name, and can make the transformation of 
this number to the number of places occupied by this variable in the file. This 
transformation is based in the fact that each character needs 4 spaces in the file and 
that each variable needs, beyond that, 3 more spaces to itself. In this case, if the 
number in the spaces column is | the variable needs 7 spaces to be described, if the 
number is 2 the variable needs 11 spaces, and so on. With this value the system deletes 
the corresponding numbers from the file and copies the rest of the file. 

If the number in the print_position column is different from O and 1 the 
system needs to verify, in the same column of the table, the variables that have a print 
position number lower than the number for the variable that we want to delete. For 
these variables the system computes the number of spaces occupied by each one (by 
verifying the column spaces) and with the total value it can find the position where the 
description of the variable begins. The variable can then be deleted from the file, by 
computing the number of spaces occupied by the variable, and copying the rest of the 
file. 

Also in this case some modifications are needed in the gates that remain in the 
circuit to compensate for the absence of one of the variables. This modification is the 
Same as in the insert case, and the procedure to do this modification is the same as 
presented for that case. 

4. The altdel command 

In this case the only file that will be modified is the modified delay file. The 
modification of the delays of the variable can have 3 different cases to be treated. 

The first case appears when the value of the delay is 0. In this case, the user 


wants to return the specified delay of the specified variable to its default value. To do 
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this deletion the system looks in the DEL table in the position that the descriptor 
number that describes the variable appears. When this number is found, the system 
verifies whether the number that appears in the type column of the table corresponds 
to the type of delay modification that we want to do (10 for rise delay and 11 for fall 
delay). If this value is different, the system restarts the search until it finds a place 
where the two numbers are the same (descriptor number and type). When the system 
finds this position the system determines if the input and the output numbers are the 
same as those that appear in the input and output columns of the table. When the 
system finds the position where all four numbers are the same it knows how many 
numbers are in the file before the description of this delay begin. With this value it can 
find the position of the descriptor in the file, delete the descriptor, and copy the rest of 
the file. 

The second case occurs when the user wants a specified path of a gate to have 
a specific value of delay and the system can find the path in the DEL table(by verifying 
the four numbers presented before). In this case, the user wants a modification in a 
delay that is already modified and the only thing that the system needs to do is find the 
place where this descriptor begins, modify its value in the file, and copy the rest of the 
file. 

The third case occurs when the system can not find the specified path in the 
DEL table. In this case the user wants to insert a modification of delay into the system 
and the system does this insertion in the end of the modified delay file, also putting the 
data corresponding to this path into the DEL table. 

5. The addpri command 

In this command the only file that is modified is the printout file. The printout 
file can be divided into two parts, one that presents the code of the variables to be 
printed and another, in the end of the file, that is the termination of the file. 

The user uses this command when he/she wants to insert a printout of one of 
the system variables. The best place to insert the command is in the end of the portions 
of the file that contains the code for the printout. To do this insertion the system 
searchs the SYMT table to verify which variables are to be printed and how many 
spaces are occupied by the code. With this value the system can find where it will insert 
the code for the new printout and copy the file. 

Because a printout is inserted into the system the SYMT table needs to be 


modified so a reference for this new printout appears in future utilizations of the 
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circuit. To accomplish the modification the system verifies, in the table, the position of 
the variable for which a printout was inserted. After finding the correct position, the 
system changes the value of the column print_position from a value 0 (no printout) to 
the value corresponding to the actual position of the variable in the printout file. The 
value depends on how many variables were printed before. Also the column 
print_spaces of the table needs to be modified to reflect the number of characters that 
compose the name of the variable. 
6. The delpri command 

In this part the only file that is modified is the printout file. The procedure to 
delete one of the printouts of the circuit is the same as described in the subsection ‘The 
delete case’ for the deletion of a printout, and because of that it will not be presented 
here. 

7. The altini command 

In this case the only file that is modified is the initialization file. The 
implementation of this command depends on the content of the command, that can be: 
deletion of a initial value, modification of a initial value, or insertion of an initial value. 

If the system receives a 3 as the value in the command, it is understood as a 
order to delete an initial value from the file. To do this type of modification the system 
follows the same procedure that was presented in the replace command case. 

If the value received is 0 (logical 0), 1 (logical 1) or 2 (undefined ) the system 
searches the SYMT table to find the position where the variable appears. In this row 
the system looks in the column initial_position to verify the number that appears there. 

If the number in this column is 0, the variable was not previously initialized, 
and the system is inserting a new initial value of a variable into the file. This insertion 
is done at the end of the file because the system knows how many variables are already 
initialized and consequently, how many numbers are in the file. With this value the 
system can find the position were it will insert the new initialization description. 

If the number in the initial_position column is not 0, the variable has an initial 
value in the file already. In this case the system will modify the file. If the number in 
the column is n, the system Knows that it will modify the code that is placed in the 
position 9*(n-1) spaces after the beginning of the file. With this value the system can 
find the place where the initialization descriptor of the variable begins, modify it, and 


copy the rest of the file. 
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8. The insout case 

In this case the system is inserting an output into the system, 1.e., inserting a 
gate that is really one of the outputs of the circuit and, consequently, no further 
modification is necessary in the system. The procedure to insert the output in the 
system is the same that was used in the INSERT case, with the difference that in this 
case the part corresponding to the modification of another gate in the circuit is not 
used. 

9. The delout case 

In this case the system is deleting an output from the system, 1.e., deleting a 
gate that is really one of the outputs of the circuit and, consequently, no further 
modification is necessary in the system. The procedure to delete the output from the 
svstem is the same that was used in the DELETE case, with the difference that in this 
case the part corresponding to the modification of another gates in the circuit is not 
used. 

10. The altgate case 

With this command the value of the delay of some path of a specified gate will 
be modified in all the appearances of this gate in the circuit (global modification). 

To do this modification the first step is to search the SYMT table to verify 
which variables are output from this type of gate. With the descriptor number of the 
variable the system now can apply the same procedure that was used in the ALTDEL 
case. The procedure is repeated until all the SYMT table was searched. 

11. The insinp case 

In this case the user wants to insert an input into the system, modifying the 
existing system, but without inserting another gate in the circuit. 

To do this modification the system inserts the new input into the beginning of 
the descriptor file, copying the rest of the file after it. After that, the command makes 
the modifications in the circuit following the same procedure that was done in the 
modification part of the INSERT case. 

12. The insinpg command 

In this case the user wants to insert an input into the system, modifying the 
system not only because of the insertion of this input but also because of an insertion 
of a new gate into it. 

To do this modification the system inserts the new input into the front of the 
descriptor file and after that inserts the new gate and modifies the circuit by using the 
Same procedure that was used in the INSERT case. 
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13. The delinp command 

In this case the user wants to delete one of the inputs of the circuit, changing 
only the gates that have this variable as input, without deleting any gate from the 
circuit. 

To do that, the system searchs the SYMT table to find the beginning place of 
the descriptor for the input to be deleted, computing the value of the DESCV variable 
for the inputs that appear before it in the table. With this value the system knows the 
beginning position of the descriptor of the input and can delete it, copying the rest of 
the file. After that the system can modify the circuit by using the same procedure that 
was used in modification part of the DELETE case. 

14. The delinpg command 

In this case the user wants to delete an input from the circuit, modifying the 
circuit not only because of the deletion of this input, but also because of the deletion 
of a gate from the circuit. 

To do that the system deletes the input following the procedure presented in 
the DELINP case. After that the system can delete the gate and modify the circuit by 


using the same procedure that was used in the DELETE case. 


D. EXECUTION 
1. Using the IBM PC/AT 

All the files and programs that are necessary to run the compiler, editor and 
simulator programs are installed in the IBM PC/AT in the Computer Design 
Laboratory. All those files are grouped in the directory SIMD of that computer. 

The steps to run the Compiler or the Editor programs, after the DOS prompt 
in the computer, are the following: 

1. Type CD\SIMD - to change the directory to the desired directory 


2. Type PATH3 - this command will allow all the paths containing the programs 
that support the compiler/editor programs be set up. 


3. Using the KEDIT editor, write the VOHL descriptions for the circuit that will 
be compiled/edited, giving to that file a <filename> that will be used in all 
calls. In the case where the description is to be used with the Editor program, 
the complete filename for the file will be the same <filename> as the circuit to 
be modified, followed by the extension ED. As an example, suppose that we 
want to create a file that will describe the circuit that is shown in the Figure 1.2, 
We can give the name TEST to the file, and this name will be the < filename> 
for all the applications of the circuit. If after the compilation of the circuit we 
want to make any modification in the circuit we need to create a file called 
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TEST.ED, and that file is the file that will be used by the Editor program to 
make the modifications in the circuit. An example of a possible TEST.ED file is 
presented in the Figure 4.1. 


Using the KEDIT editor write the input file that will be used as an input to the 
circuit to be compiled/edited. The name of this file will be <filename>.IN, 
with <filename> being the same filename of the circuit that is being 
compiled/edited. 
If the compilation of the entire circuit, or the simulation of the circuit with its 
compilation is desired, type: 

MODEL2A <filename> <option> 
With this command the system will compile or simulate (depending of the 
option that was determined by the user) a circuit that is stored in a file with the 
same <filename>. The options for the command are: 

c - compile the circuit, without simulation. 

s - simulate a circuit already compiled 

e - compile and simulate a circuit 
For the last two cases an input file is necessary for the correct function of the 
system. In both cases the results will appear in the file <filename>.OUT. After 
running the program (in any of the 3 cases) the DESCT table, the SYMT table, 
the DEL table, the INI table, and all the files that describe the circuit 
(descriptor, default delay,etc...) will be stored in the hard-disk to allow reuse. 


If it is desired to edit the circuit, or to simulate the circuit with editing, type: 

MODEL3B <filename> <option> 
With this command the system will edit or simulate a circuit that is stored in a 
file with the same <filename>. The circuit needs to be previously compiled. 
The options for this command are: 

c - edit the circuit, without simulation. 

S - simulate a circuit already compiled/edited 

e - edit and simulate a circuit 
For the last two cases an input file is necessary for the correct function of the 
system. In both cases the results will appear in the file <filename>.OUT. After 
running the program (in any of the 3 cases) the DESCT table, the SYMT table, 
the DEL table, the INI table, and all the files that describe the circuit 
(descriptor, default delay,etc...) will be stored in the hard-disk to allow a later 
use, 


2. Using the VAX-UNIX 


The necessary programs for the execution of the compiler, editor and 


simulator programs are also found in the VAX computer at the Naval Postgraduate 


School. Here there is no possibility for the use of an unique command to execute the 


file. Instead, each operation needs to be called in a different way. There are 3 different 


executable files each one being called in a different way (CADD2 for the compiler, 
SIMULA for the simulator and CEDT for the editor). 


To compile the circuit, the command is: 


a 


em ; 


AS = AND (A4 prem 
AlO = ORTHREE (A a A3) ; 
A6 = AND (A4, A2) 


BODPRI : All, A8, A2 ; 
+ 


ELIDEL. : 


ee : AZO ; 


: A20 = ANDTHRE (A, Al8, All) ; 


INSTIPG >: AZl- AZZ; 


OR (A21, EN) ; 

ANDFCUR (Al2, AlO, A6, A22) ; 
OR (CLK, A2l 
NaND (H22) A ae 





Figure 4.1 The TEST.2Deile 


CADD?2 < filename > 
where filename is the file that contains the circuit to be compiled. 
To edit the circuit, the command is: 
CEDT <filename> 
where filename is the file that contains the circuit to be edited. 
To run the simulation of the circuit alone the command is: 
SIMULA < filename > 
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where filename is the file that contains the circuit to be simulated. In 
this case a file <filename> .in, with the input values of the circuit, needs to be created 
to allow the simulation of the circuit, and a file <filename>.out will be created by the 


system with the outputs for the circuit. 
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V. PERFORMANCE 


To verify the correctness of the EDITOR program and evaluate its performance 
several tests were run with different circuits, each run testing one of the capabilities of 
the program. 

If the objective of the tests were only to verify the correctness of the program 
any set of tests that cover all the possibilities of the program could be considered a 
good test, but when the test must also evaluate the program some points need to be 
considered. 

The time that the EDITOR program will take to run a specific test will depend 
on two characteristics: what is the modification that we want to introduce into the 
circuit and what is the size of the files (descriptor file, default delay file, modified delay 
file, initialization file and printout file) that describe the circuit. The descriptor file and 
the default delay file have a size that can be considered directly proportional to the size 
of the circuit. The size of the other 3 files will be a function of the special 
characteristics that the user gives to the circuit, and can be either empty or large, 
depending on the description of the circuit given by the user. The time that the 
compiler program needs to generate those files is also a function of the size of the 
circuit and its characteristics, with the time increasing when the size or the number of 
characteristics increases. 

The evaluation of the EDITOR program can be done by measuring the time that 
is needed to perform some modification in the circuit using the program and by 
comparing this time with the time that would be necessary to compile the entire circuit 
with the modification inserted. At this point the first question appears. What is the 
better way to do this comparison? It is better to use a large circuit with a lot of 
characteristics inserted, a large circuit with few characteristics inserted, or a small 
circuit with few characteristics? It is almost impossible to answer this question, because 
the answer will be different from case to case, depending of what we want to modify in 
the circuit. For example, if we want to modify the initial values of the variables it is 
better to have a large circuit with few characteristics, particularly if it has few initial 
values in the original circuit, because the time that will be needed to rewrite the 


initialization file will be small with respect to the time to write all the files. But, if we 
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want to insert a gate into the circuit the time that will be used for the EDITOR 
program will be the same for each circuit and will be dependent only of the size of the 
circuit. However, the performance with respect to the compiler program will be 
different depending on whether the circuit has few (or none) delay modifications, 
initializations, and printouts or if it has many of those characteristics. 

Another question concerns the necessity of recompiling the circuit with the 
modification inserted to allow a correct comparison with the EDITOR program. If we 
think in real terms, each of the tests that are done in the circuit really need to be two 
tests, one using the EDITOR program and the other using the recompilation of the 
circuit with the modification. However, the time required to perform all the necessary 
tests could be incompatible with the time available for the preparation of this thesis, 
and because of that, some of the recompilations were done, but in the cases where the 
modifications were similar the recompilations of the entire circuit was done only once, 
with this time being considered the default for the similar cases. This was done because 
when we do a compilation of the entire circuit the factors that determine the time 
needed for the compilation are the size of the circuit and the number of different 
characteristics in the circuit. To understand that suppose that we have a circuit with n 
gates. If we insert 3 gates and replace 1 gate in this circuit the circuit will have n+3 
gates and the same characteristics. If, in the original circuit, we insert 3 gates and make 
3 modifications the number of gates that the compiler program will found is n+3, and 
the characteristics of the circuit will be the same. As we can see the time for the edition 
of the circuit will be different in the two cases, because we are inserting and modifying 
a different number of gates, but the time for compilation of the entire circuit will be the 
Same, because the number of gates and the characteristics of the circuit will be the 
same. 

To perform the tests of the Editor program two circuits were used. The first 
circuit was the ALU circuit, that is presented in the Appendix H, and the second 
circuit was the circuit that is presented in Figure 1.2. The ALU circuit is composed of 
142 gates, but has no delay modification, few initializations, and printouts. The second 
circuit is composed of 14 gates, but has some delay modifications, few initializations, 
and a medium number of printouts.The first step in the test of the EDITOR program 
is to compile both circuits and verify the time that is needed by each one to complete 
the compilation. The ALU program needed 4 minutes and 35.38 seconds to complete 
the compilation, while the second circuit, that we will call TEST circuit, needed 40.94 


seconds to perform the compilation. 
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The measurement of the performance of the editor was made by the computation 
of the ratio between the time needed by the editor to perform the corresponding 
modification and the time needed by the compiler, in percentage. The values found in 
the tests are presented in the last column of the tables that are presented in this 
chapter. The equation for the computation of this value is presented in the Equation 
a 


edit time 
ratio = —————————_- x 100% (eqn Sau 


compilation time 


More than 350 tests were performed to evaluate the performance of the Editor 


program and the results will be presented in the following sections. 


A. THE REPLACE CASE 

When the replacement of gates is done in the circuit the time that will be needed 
to recompile the entire circuit is, in the worst case, the same that was necessarv to 
compile the original circuit. The worst case is when none of the gates being replaced 
had delay modifications or initial values in the original circuit because in this case 
nothing will be deleted from the files. If some of the gates had any of the mentioned 
characteristics in the original program some files will be small, and consequently, the 
system will need less time to do the compilation. This difference in time is not very 
large and, for the effects of the test, the time of recompilation will be considered as 
being the same time necessary for the compilation of the original circuit. 

The Table 7 presents the results of the tests done with the ALU circuit for the 
replace gate cases. The first column of the table presents the number of gates that are 
being replaced in the circuit, with the second and third columns presenting the amount 
of time needed for the edition and recompilation of the circuit, respectively. The last 
column of the table presents the comparison (in %) between the time for the edition 
and the time for recompilation of the circuit. 

As we can see we can replace approximately 5% of the number of gates in the 
circuit using the editor program in an amount of time less than the time needed for the 
recompilation of the entire circuit. This result could be considered satisfactory, since 


the ALU circuit can be considered, perhaps, the worst case for the replacement of the 
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TABLE 7 


THE REPLACE CASE 
FOR THE ALU CIRCUIT 


gates edit eonpe aeaoe 
eased 7 ae time ee 
sec min sec 
Ol" O0Gn 9S 04 35.38 Boe | 22.13) 


= On oe oZ 04 35.38 83533 
OZ 1626/ OA OO 49.63 


[+ [oa aioe | 04 35.00 | 50.60 
Ts [os sea | os 25.30 | 79.22 





gates, having no modification of delays and very few initializations, factors that 
certainly would increase the time needed for the compilation of the circuit and that 
could allow a great number of gates to be replaced in the time that was needed by the 
compiler program for the compilation of the circuit. 

Table 8 presents the results of the tests done with the TEST circuit for the 
replace gate cases. This table has the same format as the table presented for the ALU 
circuit. 

AS we can see this case is better than the ALU case, because in the time needed 
for the recompilation of the circuit we can replace almost 29% of the gates of the 
circuit. This could be considered an excellent result, because is not normal a 
replacement for this amount of gates in a circuit. 


B. THE INSERT CASE 

In this case two parameters are important in the measurement of the 
performance of the Editor program: how many gates are being inserted and how many 
gates will be replaced due to those insertions. The measurement of the performance of 
the program in this case was done by comparing the amount of time needed by the 


Editor program to modify the circuit and the time needed by the recompilation of the 
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TABLE 8 


THE REPLAGE,GASE 
FOR THE TEST CIRCUIT 


gates edit Comp? | ag 
piece time aoe 
min sec nie Bee 


OO%2ZZ2 ase 00 42.64 | 53.82 82 


—— 00" 283460 OO 42. 64 66,37 
90 34.10 | 00 42.68 | 79.97 
a i OONS97sZ OO 42. 64 92.20 





circuit that is composed of the n original gates plus the number of gates that are being 
inserted. 

The Table 9 presents the result of the tests for the ALU circuit. The table is 
basically the same as the replace case with one more column added to the table to 
represent the number of gates inserted in the circuit. 

As we can see, the Editor program allows that 1 gate be inserted and 8 modified 
or 7 gates be inserted and 1 modified in the same time that the compiler program needs 
to compile the entire circuit. These numbers show that we can insert/replace more than 
5% of the gates of the circuit, that is very powerful. | 

The Table 10 presents the result of the tests for the TEST circuit. The table 
format is the same of the ALU case. 

In this case the Editor program allows the insertion/replacement of up to 6 gates 
in less time than the time necessary for the compilation of the entire circuit. Those 
numbers show that we can change almost 43% of the gates of the entire circuit 
without the necessity of recompilation. This is really an excellent result. 

There is a great difference in the number of gates changed in both circuits. This 
difference can be explained by the size of the different files that describe the circuits. 
In the ALU circuit we do not have the modified delay file, the initialization file is very 
small, and the descriptor file and the default delay files are very large. As the insertion 
and replace cases works basically with these two files and as the other files are almost 
non-existent, the Editor program does not take as much time to copy the other files 


back and forth. If the circuit had delay modifications and more initializations certainly 
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TABIEES 


THE INSERT CASE 
FOR THE ALU CIRCUIT 


min See mi = 2 é ec 
See forse 
[7 [ree 8.09 | 04 55-32 | 05.30 
[a fe [re as. 00 | on o5.22 | oe st 
re oe 
[a [2 |e ass [on anor | 50.02 
pa fawn [ane [ors 
2 [6 fos ones [oe ner onze 
(aaa [ewes [os ator | 95.52 
Ta [a [ee 20.99 | os aace | sat 
ro 
a [4 ee ace | os aa.c8 | 70.79 
3 fs [erie se [os 44.08 | 00.09 
as fe [en anos | on as08 | oa.z2 
[+ [ae 0a.05 [on ass? | oa.a0 


| 


bo | & 
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TABRBE 
THE INSERT CASE (CONT D.) 


sec aie See 
"oa 46.37 | 73.71 
nn 
ss fon 28.72 | on 46.07 | 92.79 
Ts [a fev as.2i | on 50.05 | 07.06 
Ts [2 [ea aa.2i [on sores | 97.08 
7 [a Pow so-25 [on 58.01 | 99.06 


the number of gates that could be replaced would be greater. This can be seen in the 











TEST circuit. In this circuit, even with the descriptor and default delay files being the 
largest files of the circuit, the other 3 files have a reasonable size and this will influence 
the number of gates that we can change, as we can See by the results obtained during 
the tests. 


C. THE DELETE CASE 

Also in this case, two parameters are important in the measurement of the 
performance of the Editor program: how many gates are being deleted and how many 
gates will be replaced due to those deletions. The measurement of the performance of 
the program in this case was done by comparing the amount of time needed by the 
Editor program to modify the circuit and the time needed to recompile the circuit that 
is composed of the n original gates less the number of gates that are being deleted. 

Table 11 presents the result of the tests for the ALU circuit. The table is 
basically the same as the insert case with the column gates inserted replaced by the 
column gates deleted. 
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TABLE 10 


THE INSERT CASE 
PORE meal CinCUIT 


min sec mi Z z Cc 
OG fe tees tan 
[a [2 [eo 25.30 [00 02.08 | 76.28 
a [aoe 20:97 00 05.39 | oa. 28 
Ta [2 [ee 86.28 | 00 5.09 | 75.07 
a [8 | eo 20.50 | 00 45.39 | es.00 
a [+ [ee as.28 | 00 05.09 | 8.28 
4 [a [0 ai: 66 | 00 0.20 | 08.20 
a [2 [oo as. a8 | co 08.08 | 6.30 










|.) 











As we can see the Editor program allows | gate to be deleted and 8 modified or 6 


gates be deleted and | modified in the same time that the compiler program needs to 


compile the entire circuit. These numbers show that we can delete/replace almost 5% 


of the gates of the circuit. 


Table 12 presents the result of the tests for the TEST circuit. The table format is 
the same as the ALU case. 


AS we can see, in this case the Editor program allows the deletion and 


replacement of until 4 or 5 gates in less time than the time necessary for the 
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TABLES 


THEIDELETE CASE 
FOR THE ALU CIRGUii 


min sec min sec ve 
aft fon 26.31 | oa 5.07 | 3.38 
|? for sens | oa 35.07 | 2.22 
Pas [on azar | 04 35.07 _| 59.08 
sf so os.74 | on os.07 | 67.52 
a [6 fos so.es | oa 35.07 _| 76.65 
| 7 [os ss.29 | 04 ss.07_| 05.5 
fe fev zest [om 95.07 | 94.56 
2 | 3 [on 02.98 | oa 30.50 | s.05 
2 [2 [oa zs.05 | 04 35.50 | 52.40 
2 | 5 | os 6.21 | oa s5.s0 | 75.08 
2 | 6 | ov 00.84 | 04 55.80 | 07.92 
2 | 7 | oe as.is [oa s5.s0_| 96.92 
3s [a [ease | onszaa | sees 
a | 2 [os on.0r | oa sect | erat 
3s [3 [es as.oa | o« saan | 76.75 
3 | + | os sa.n6 | on sect | 05.62 
3s | 5 |e ies7 | oa saci | 69s 
+ | [estes [04 30.58 | 72.60 
a feos sez | 08 90.50 | 008 
# | 3 | 0402.39 | 04 30.50 | esse 
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eel] lebs bff ede ef 


TABLE 11 
THE DELETE CASE (CONT’D.) 


gates edit Sora aaa 
Met eced eee time ea 
min sec ai ee 
fs | 1 | 03 42.64 | 04 28.97 22 
O04 05.29 O4 28.97 ie ZO 
[6 | a | 0419.68 | 04 27.02 | 97.24 











TABLE 12 


Pibwop ee we CASE 
Oho Wothke ULE 


min sec aa sec 
asses feo De 
re cece 










ee 


Ur 


w 


compilation of the entire circuit. These numbers show that we can change almost 30% 


of the gates of the entire circuit without the necessity for recompilation. 
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D. THE ALTDEL CASE 

In the ALTDEL case we have three distinct possibilities; insertion of delays, 
modification of delays already modified, or return to default delays. 

In this case, the tests were not done by increasing 1 variable at a time because, as 
the only file that is modified in this case is the modified delay file, the variation of time 
for increasing 1 variable is very small. The Table 13 presents the results of the tests 
executed for the ALU circuit. The table presents the type of modification made in the 
circuit, the number of paths whose delays were affected by the modification, the time 
necessary to do the modification with the Editor program, and the comparison with the 
time needed to do the compilation of the circuit with the modification inserted. 

In the column modification type (MODIF. TYPE) a code was used to represent 
the modification that was done to the delays. This code is: 

1. I - insertion of delays 
2. M - modification of delays 
3. D- return to default 

Table 14 presents the results of the tests executed for the TEST circuit. The 
format of this table is the same as the table that presented the results for the ALU 
circuit. 

As we can see the Editor program is a powerful tool when the user needs to 
modify the delays of the circuit that is being simulated. The system allows the 
insertion of delays in a number of paths that is almost equal to 1.5 times the number 
of gates that compose the circuit. For the case of deletion of delays the number of 
paths that we can work with actually outnumber the number of gates existing in the 
circuit, and only in the modification case does this number fall to one half of the 
number of gates. The difference in time in each of these cases is due to the size of the 
files that the system is working with. We can delete(insert) more delays than modify 
delays because in the first case the modified delay file starts big{small) and starts to 
decrease(increase) while the system is deleting(inserting) delays and, consequently, the 
average time to work with a specific number of delays is lower than the time to modify 
the same number of delays. On the other hand, for the same case the modified delay 


file will always have the same size. 


E. THE ADDPRI CASE 
As the MultiSim package presents the output as a table of results, the number of 


printouts that are allowed in the system are bounded by the size of the screen. As the 
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TABEESIS 


THE ALTDEL CASE 
FOR THE ALU CIRCUIT 


a edit | compilat, 
min sec m at n sec 
Re ca aa as 
Tape) oo ae aa] oe a7.33) donne 
Tw [ve [eo aa.sa) on 97.38) 30.29 
Te [oe eo aiiza) on se) see 
Tn [re [os osseous. s9) 78 
Ta [ree [or ae.aa) os sh 08) 32.89 
Te [se [on ae.ai) om os. se) 30.97 
Te [ase [on ae ca) 00 56.30) 02.46 


norm, we can have a maximum of 80 columns on the screen and the maximum number 















of printouts allowed is 18, if all the variables have a name with 2 characters, because 
the first column in the printout, which is the time, occupies 4 columns, and we need to 
have one column of separation between each name. 

Because of this, the tests that were performed were limited to 17 additional 
printouts in the circuit. 

Following the statements presented before, the EDITOR program was tested 
inserting 17 variables in the printout of the ALU circuit, and it needed 37.31 sec, that 
is only 13.51% of the 4 minutes and 36.15 seconds needed to compile the entire circuit 
with 18 printouts. When the program was tested on the TEST circuit it needed 27.24 
seconds to add the 17 printouts in the circuit, what is 63.67% of the 42.83 seconds 
needed to compile the entire circuit. 
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TABLE 14 


THE ALTDEL CASE 
FOR THE TEST CiRCUim 


min Sec Sec 
a 
Tw [aa | 00 24.05) 00 44.79] 69.44 
[mw [20 | 00 98:34) 00 45.06) 72.26 
[= [ae [00 25.07] 00 64) 60.67 


With the limitations imposed by the actual output of the simulator, the case for 












added printouts in the circuit is always better with the Editor program. 


F. THE DELPRI CASE 

In this case the limitations that appeared in the add printout case also apply and, 
because of that, the system was tested for the worst case of 17 printouts deletions. 

In the ALU circuit the Editor program needed 36.85 seconds to delete the 17 
printouts, that is only 13.38% of the time needed by the system to compile the entire 
circuit. 

In the TEST circuit the system needed 26.60 seconds to delete the 17 printouts, 
an amount of time that corresponds to 63.89% of the 41.63 seconds needed by the 


system to compile the entire circuit. 


G. THE ALTINI CASE 

In the ALTINI case we can have three distinct possibilities that are: 
initialization of variables that are not initialized yet; modification of initialization 
values of variables that are already initialized; deletion of variables from the 
initialization list,i.e., the variable was initialized before and the user wants that it be 
undefined. 
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In this case, the tests were not done by increasing | variable each time because, 
as the only file that is modified in this case is the initialization file, the variation of time 
to increase I variable is very small. Table 15 presents the results of the tests executed 
for the ALU circuit. The table presents the type of modification made in the circuit, 
the number of variables that were affected by the modification, the time necessary to 
do the modification with the Editor program, and the comparison with the time needed 
to do the compilation of the circuit with the modification inserted. 

In the column modification type (MODIF. TYPE) a code was used to represent 
the type of modification to the variables. This code was: 

1. I- insertion of initial values into new variables 
2. M - modification of initial values of variables already initialized 
3. D - deletion of initial values 

The column total presents the number of initial value assignments in the 
initialization file at the end of the user command. This information is important 
because the size of the initialization file is the predominant factor in this command's 
performance. Due to the size of the file, the modification of the same number of initial 
values can have different times, depending on whether the initialization file is small or 
not. 

Mable 16 presents the results of the tests executed for the TEST circuit. The 
format of this table is the same as the table that presented the results for the ALU 
circuit. 

As we can see the Editor program is a powerful tool when the user needs to 
modify the initial values of the variables in the circuit being simulated. The system 
allows the insertion/deletion of initial values in a number of variables that could be, in 
some of the cases, equal to the number of gates in the circuit. From the tables, for 
small circuits the Editor program is capable of inserting, modifying, or deleting the 
initial values for all the variables in the circuit in less time than the time needed for 
compilation of the circuit. For large circuits we can insert or delete a number of initial 
conditions that will be almost equal to the number of gates in the circuit, but we 
cannot modify a large number. In any event we can modify the initial values in almost 
one half of the gates in the circuit. The difference in time for each of these cases is due 
to the size of the files. The number of files where we can delete(insert) more initial 
values is more than the number of files we can modify, because in the first case the 


initialization file starts big(small) and starts to decrease(increase) while the system is 
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TASTE ds 


THE AL TINI CASE 
FOR THE ALU CIRCUIT 


mini sec Theta aoe 
[a a 
(2 [ 20 [an | 0a 52.20] 04 8.00] 67-47 
a [sa | ss [on 8.70] 04 8.09) 40.20 
[sas [en 8.78) 04 45.00] 65.67 
Te [6 [a | on 88.66] 04 55.00] wa. a7 
[> [ie [2 [os aa-ea] 04 05.20] 99.79 












TABLES 


TE AlN eae 
FOR The 1ES? CiReuin 


min Sec min sec 
eo 
[faa [a6 | 2a. 98] 00 05.27) 72.590 
(ef 20 [2 | eo 27-20] 0 02.1] 64.58 













deleting(inserting) initial values. Consequently, the average time to work with a specific 
number of initial values 1s lower than the time to modify the same number of values. 
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H. THE INSOUT CASE 

As the system worked with the insertion of gates the tests were done once more 
by inserting one gate at a time. 

Table 17 presents the results of the tests for the ALU circuit. The first column of 
the table presents the number of gates being inserted in the circuit, with the second and 
third columns presenting the amount of time needed for the edition and recompilation 
of the circuit, respectively. The last column of the table presents the comparison (in “%) 


between the time for the edition and the time for recompilation of the circuit. 


TABLE 17 


THE INSOUT CASE 
FOR THE ALU CIRCUIT 


sec min sec Vi 
Berrcartwas tas 
[fea 6.80 | 04 45.97 | 54.75 
(6 [os a.07 [oe sees | 76.95 
[2 [os as.s4 | ov 5.38 | 0.02 


As we can see the number of outputs that can be inserted in the circuit is almost 












equal to 6% of the number of gates that compose it. This result can be considered 
satisfactory because it is not normal for a user to insert a large number of outputs in 
the circuit in one change. 

Table 18 presents the results of the tests done with the TEST circuit for the insert 
Output case. This table has the same format as the table presented for the ALU 
circuit. 
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TABLE 18 


THESINSOU Pease 
FOR THE TEST Cine@ui 


_ gates edit CORD Se 
inserted _ time time erie 
min sec min sec 
00 22.00 OO 43. 49 20, 2 
00 27.63 | 00 45.39 | 60.87 


OOF S225) OO 46.44 TORO 
| ee 00 38.08 00 48. 33 Tone 
OO 44. 37 OO 50. 41 83-02 





As we can see, this case is better than the ALU case, because for the same time 
needed for the recompilation of the circuit we can insert almost 36% of the gates of the 
circuit. Because it is not normal to insert this amount of outputs in a circuit, this can 


be considered an excellent result. 


J. THE DELOUT CASE 

In this case, as the system worked with the deletion of gates the tests were done 
once more by deleting one gate at a time. 

Table 19 presents the results of the tests for the ALU circuit. The first column of 
the table presents the number of gates that are being deleted from the circuit, with the 
second and third columns presenting the amount of time needed for the edition and 
recompuation of the circuit, respectively. The last column of the table presents the 
comparison (in %) between the time for the edition and the time for recompilation of 
the circuit. 

As we can see the number of outputs that can be deleted in the circuit is almost 
equal to 6% of the number of gates that compose it. This result can be considered 
satisfactory because is not normal for a user to delete a large number of outputs in the 
circuit in one change. 

Table 20 presents the results of the tests done with the TEST circuit for the 
delete output case. This table has the same format as the table presented for the ALU 


circuit. 
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TABLE 19 


THE DELOUT CASE 
FOR THE ALU CIRCUIT 


sec Nea Sec A 
eee eas 
(«fon 5.01 | oa 30.80 | o7.62 
[os seaa [oe 7.02 | one 











TABLE 20 


THE DELOUT CASE 
FOR THE TEST CIRCUIT 


gates edit gone Aeron 
deleted pane Bete 
sec nae Bee 
ots 60 24.00 | 00 42.26 | 56.75 


90 28.97 | 00 41.33 | 70.05 
90 35.21 | 00 39.67 | 08.76 







The TEST case is better than the ALU case, because in the time needed for the 
recompilation of the circuit we can delete almost 22% of the gates of the circuit. 


THE ALTGATE CASE 


This case has practically the same function as the ALTDEL case, with the only 
difference that this case works with the general gates of the circuit, instead of the 


a 


variables of the circuit. As a consequence, the results obtained in these tests are almost 


the same of the ALTDEL case, and, because of this the results will not be repeated. 


K. THE INSINP CASE 

In this case two parameters are important in the measurement of the 
performance of the Editor program: how many inputs are being inserted and how many 
gates will be replaced due to those insertions. The measurement of the performance of 
the program in this case was done by comparing the amount of time needed by the 
Editor program to modify the circuit and the time needed by the recompilation of the 
Circuit. 

Table 21 presents the result of the tests for the ALU circuit. The table is 
basically the same as the insert case with the gates inserted column replaced by the 


inputs inserted column. 


The Editor program allows | input to be inserted and 8 gates to be replaced or 7 
inputs to be inserted and 2 gates to be replaced in an amount of time lower than the 
time needed by the compiler program to recompile the entire circuit. These values 
could be considered very good, because we are modifying more than 5% of the number 
of gates in the system in a time lower than the compilation time. 

Table 21 does not have the results of the tests for the insertion of 7 inputs and 
the modification of 1 gate. This test was not done because in the actual situation of the 
system, there are no primitive with 7 inputs and, consequently, it is umpossible that 7 
inputs be inserted in the system with only | gate being modified. When 7 inputs are 
inserted in the circuit at least 2 other gates need to be modified, and this is the reason 
that the test for 7 inputs and | gate was not studied. 

Table 22 presents the result of the tests for the TEST circuit. The table format 1s 
the same of the ALU case. 

In this case the Editor program allows that I input be inserted and 6 gates 
modified or 5 inputs be inserted and | gate modified in an amount of time lower than 
the time needed to recompile the entire circuit. This is a reasonable result because we 
are modifying almost 50% of the number of gates in the circuit in a time lower than 


the time to recompile the entire circuit. 


L. THE INSINPG CASE 
Three parameters are important in the measurement of the performance of the 
Editor program: the number of inputs being inserted, the number of gates being 
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TABLE 21 


THE INSINP CASE 
FOR THE ALU CIRCUIT 


inp edit Conoco 
Probe eed pects A seats rayi° 
sec uae sec 


eae toes tone 
Ts Tere fore [aes 
[~s| os 26.75 | 04 35.00] 72.38 
re ses [oe ss.oo [ otse 
2 [aon 09.20 [oe se.ze | ae. 77 
a fess [ose [ee 
eo _[es arse [os seize [ens 
2 [7 [os aac | os 26.20 | o1.55 
[2 [a [ee 00.55 | on 27.08 | 0600 
a [a [ee sn.s7 [on 27.08 | 8.70 
as [ee so.75 | on 27-08 | sao 

se fems [oro mee 
Ts [eos areas [00 97.09] 22.08 
Ca [a [oe [oo rss | ss.35 


ll 


Tet 


No 


Et 
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TABLE 2 
THE INSINP CASE (CONT’D.) 


— .apuc gates edit compilation 
inserted| replaced _ time time ratio 
min sec We 

a | 2 | 03 00.03 | 0437.81 | 64.87 
[a | 3 | 03 2626 | 0437.81 | 74.33 
03 52.92 | 04 37.51 | €3.93 
[a | 5 | o4a9.e1 | of 37.51 | 93,62 
03 00.18 | 04 37.99 | 64.60 


ss [es aese | 0 o7-99 | 92.08 
ere oe ee 
sf 2 fea 5.00 | on v6.08 | en.a8 
= [3 [eninn | os sac | 50.57 





inserted, and the number of gates being replaced due to those insertions. The 
measurement of the performance of the program in this case was done by comparing 
the amount of time needed for the Editor program to modify the circuit and the time 
needed for the recompilation of the circuit. 

Table 23 presents the results of the tests for the ALU circuit. The table is 
basically the same of the insert input case, with the insertion of one more column for 


the presentation of the number of gates inserted in the circuit. 


By the results presented in the table we can see that the Editor program allows 
an insertion of a great number of inputs and gates in the circuit. The tests that were 
done did not cover all the possible insertions that could be done in the circuit in a time 
lower than the time necessary for recompilation of the circuit, but we can see by the 
results that we are modifying a number of variables that is almost equal to 6% of the 


number of gates in the circuit.. 


100 


TABLE 22 


THE INSINP CASE 
BORE te sieerceult 


Sec mi eo a z Cc 
eet tase ees tas 
a [seo oa. s2 | 00 aa.38_| 73.08 
[a [4 [eo 25.30 | oo aa | eee 
[as [eo asta | 00 45.39 | 90.08 
ae feo soe | 00 45.29 | 09.8 
[Ta [a [eo ae. 78 | 00 44.09 | 65.56 
[2 [2 | eo 20.82 | oo as.08 | 70.00 
a [860 25.28 | 00 aaa | 00.39 
[a [feo 8.4 | 00 44.09 | 09.55 
a [seo aa. 68 | oo aac | oon 
ee ee 
a [2 [eo 7.28 | oo aoe | ene 
ss [eo ates | 00 ae 98 | oo.c2 
ee ee ee 


Table 24 presents the results obtained in the INSINPG case for the TEST circuit. 
The table has the same format as the ALU table. 
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In this case only few tests were done in the circuit. Even with a small number of 
tests we can see that the system can increase the number of inputs and gates inserted in 


the same time that was need for recompilation of the circuit. 
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TABLE 23 


THE INSINPG CASE 
FOR THE ALU CIRCUIT 


tie Sait ea 
inserted inseceea Bo ieaa eae cime ao 
min sec/min sec 


| 12 | a for 50. 78]04 39. 74. O04 (04 39.74 74 | 39. 60| 60 
TP en 

a [2 ea 40. a0) o0 99.74] 57.38 
Eso soon 765.8 
a Yon aia on 209) 50.08 
ae ao a7. 798 a 00] 80.08 
a [2 | 8 [es 29.800 «2-00] 60.78 
a | soa 05. 2a)on 02.08] 07.29 
a [a Yor 8.96) on aa. sa] oa. a0 
a [sa foo 2a on 46-52] 70.00 
as Yoo aon 52] 75.05 
ove olee se oe 
oo tl 
asa Yow si sefoe ar-zel secre 
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TABI 23 
THE INSINPG CASE (CONT’D.) 










_tlighe) baw gates gates edit Cem iel. 
inserted|inserted|replaced| time time ratio 
min secimin sec 


; 
2 [a [a for a6. c2[oe 40.29] 08.00 
2 [a | 2 foe ao. 77/04 40.09] 67.04 
Ta fa [2 fon 6 talon 00.09] 65.08 
aa [sos saan 40-29] 00.99 
a [a | 2 Joa as. s6)oe 02.72) 60.08 
2a To 0s. 2500 a2. 72| 05.78 
[a [2 oa 42. ca[oe 05.25) 70.20 
3 
3 [ a Jou ai. e7fos 45.25] 95.08 
Ta [a foe 26: 7]00 aa. 07) 5.30 
Te [a [a Joe sa. 08)o0 ai. 72] 63.08 
Ts [a [a oo ae. ar)oe 22.0) 67.08 


M. THE DELINP CASE 


In this case two parameters are important in the measurement of the 
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performance of the Editor program: how many inputs are being deleted and how many 


gates will be replaced due to those deletions. The measurement of the performance of 
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TABLE 24 


THE INSINPG CASE 
FOR THE TES) GiRGiirs 


min sec/min sec ye 
[2 [too 29. 57)00 8.22) 66.99 
| + | 2 [0 92,3000 45.22| 71.49 
a ft | 3 foo 34.05) 00 45.22] 77.07 
[f+ Joo 37. a2] 00 45.22) 02.75 
Ps [a _| 5 [oo 40.15 |00 45.22] 08.79 
[+ | 6 [oo 42.0500 45.22] 98.76 
[2 | 1 Joo 94 0900 45.05] 76.10 
pf 2 | 2 Joo 30.13 ]o0 45.05] 09.12 
2 | 2 | 2» [00 41.08 [00 45.05] 68.60 
[2 [+ 00 44-13 [0 05.05) 96.25 
[2 | 1 oo s8.a1foo 46.17] @a.58 
as | 2 oo 42700 46.17) 934 
: 
3 
3 00 38.09/00 46. 16) 82 a2 
2 [a | + foo a1. 20) 00 46.16) 05. 43 
/ 
2 | 2 | 2 oo s0.z1]oo 46.03) 61.69 
: 
[2 [3 | 1 00 45.0200 47.99] 69.68 
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TABLE 24 
THE INSINPG CASE (CONT'D.) 


chet ohbiew gates gat edit one. 
Migorted inserted oS Teead time time aoe 
min sec|min sec 
——— F 46.57|00 }00 47. 99| 99 | 97.04! 04 


the program in this case was done by comparing the amount of time needed by the 









Editor program to modify the circuit and the time needed by the recompilation of the 
circuit. 

Table 25 presents the result of the tests for the ALU circuit. The table is 
basically the same of the insert case with the gates inserted column replaced by the 
inputs deleted column. 


As we can see the Editor program allows that | input be deleted and 8 gates be 
replaced or 7 inputs be deleted and 2 gates be replaced in a time lower than the time 
needed by the compiler to recompile the entire circuit. 

Table 26 presents the result of the tests for the TEST circuit. The table format is 
the same of the ALU case. } 

In this case the Editor program allows | input to be deleted and 5 gates to be 
modified or 3 inputs to be deleted and 2 gates to be modified in an amount of time 
lower than the time needed to recompile the entire circuit. This is a reasonable result 
because we are modifying almost 35% of the number of gates in the circuit in a time 


lower than the time to recompile the entire circuit. 


N. THE DELINPG CASE 

In this case three parameters are important in the measurement of the 
performance of the Editor program: the number of inputs being deleted, the number of 
gates being deleted, and the number of gates to be replaced due to those deletions. The 
measurement of the performance of the program in this case was done by comparing 
the amount of time needed by the Editor program to modify the circuit and the time 
needed for the recompilation of the circuit. 
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TABEER 5 


THE DELINP CASE 
FOR THE ALU CIRCUIT 


min sec min sec Me 
a fs fessor | onasai | 65.26 
7 [os sss | oe o5.21 | ea.a7 
Cece eer! 
(2 | oe 07.52 [oe sa 03 | 00.88 
2 [see seca [or nes | se.57 
a |e fos sa] oe seca [ena 
2 | 7 | ois. | of s6.09 | 90.92 
3 [+ [eevee | 04 50.90 | 25.68 
3 | 2 |e saas | 04 35.90 | 55.90 
3) 2 | es 00.01 | oa 23.98 | 65.70 
as Pos ae [oe se [re 
(—~s_[oes.22 [oe 93.08 | s5.22 
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TABLE 25 
THE DEPENE CASE(CONT'D.) 


sec mi A 2 3 Cc 
Os bec bes ba 
Ta [+ [os sec [ow ant | os oo 
a fs [on a0. ss [oe 29.01] 5.38 
Ts [ete ae [oe sa.a5 | 95.20 
sf a [oe as.05 [os 30.97 | 75.78 
Ts [2 [esi | on ses7 | o.s2 
sf 3 [ow te rs | os 20.97 | 5-08 


Table 27 presents the result of the tests for the ALU circuit. One more column is 



















added to allow the presentation of the number of replacements of the input (gate) 
inserted column(s) by the input (gate) deleted column(s). 

By the results presented in the table we can see that the Editor program allows 
the deletion of a great number of inputs and gates in the circuit. The tests that were 
done did not cover all the possible deletions that could be done in the circuit in a time 
lower than the time necessary for recompilation of the circuit, but we can see by the 
results that we are modifying a number of variables that is almost equal to 6% of the 
number of gates of the circuit. 

Table 28 presents the results obtained in the delete input and gate case for the 
TEST circuit. The table has the same format as the ALU table. 
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TABLE 26 


THE DELINP CASE 
FOR THE TES? Cikeum 


sei DeSt eis SE" og 
sec min sec 
= 
as eo a2. 01 [oo aa. se | rr 
Seon os Too se [oa 
aa oo 
aT [2 [ee sa56 [oo wae | ase 
(2 | 3 [0039.00 | oo 41.85 | 93.19 
Sa Pee 36.28 [00 90.22 [eran 
| 3 | 2 | 0039.89 | 00 40.12 | 99.49 


Also in this case some of the tests were not done, to decrease the number of tests 
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that were applied to the circuit. Even with a small number of tests we can see that the 
system can delete a number of inputs and gates almost equal to 40% of the gates of 


the circuit in less time than the time needed for the compilation of the entire circuit. 
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TABLE 27 


THE DELINPG CASE 
FORME ALU CIRCUIT 


min secimin sec ys 

af | 2 fon se. e7foa 53.02] as. 32 

Ta [6 fos 05.30)08 29.93) 09.57 

; 

: 

D2 | 4 Jos s0.za)oa 22.02] 24.65, 

a | 2 | 2 for se.22]0a 20.07] «5.02 

Pfs [2 fos 21. 7)oa 20.07) 74.59 

Ts fs | 3 fos a7.e5)oa 30.07) 4.29 
psf |? os se.za)oe 26. 7| 07-07] 

ps [+ | 3 fos 22.a2)oa 20.71) 97-66 

3 

C3 

[2 | + | 2 Jos 06.ss|oa 32.0] 0.58 
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TABLE 27 
THE DELINPG CASE (CONT’D.) 


min sec/|min sec Te 
2 | a | + os 25:06|0 32.63] 70.20 
re 
2 [| _[oa 25. 21]os 32.0) 97.22 
2 | 2 | 2 [oz 49.24]08 20.05] 62.40 
[2 [2 | 2 [os a3. silos s0.05| 7.45 
2 | 2 | > [os 0.c1]oa 20. 05| 02.29 
il 
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2 [2 [+ [os 06. sifon 20.05] 90.98 
a [3 [fos a7 sion 29.0] 72.52 
Ta [a] 2 foo 4s son 29.00] 09.40 
2 [2] fos on. 29) o0 29.06] 90.55 
aa Tor 26.45 50.72] 57-0 
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VI. RECOMMENDATIONS, FURTHER WORK AND CONCLUSIONS 


A. RECOMMENDATIONS 

The Editor program and the compiler program were written in a way that tries to 
make them as general as possible. However, due to the possibility that the number of 
gates supported by the system might be increased, some attention need to be given to 
the maintenance of both programs. Also the user needs to remember some points 
when trying to use the compiler or editor program to simulate some digital circuit. 

The first point to be remembered is about the usage of submodules in the 
description of the circuit. When the user defines a circuit by using submodules, the 
compiler program takes those submodules and expands them into lower levels to allow 
the usage of gates that are already described in the library of the system. When the 
system does this expansion it loses track of the submodules that were defined by the 
user. If, after the compilation, the user tries to edit this circuit he/she cannot use the 
submodules that were described before because the program will not be able to find 
them. Instead, the user needs to define the modifications by using the definition of 
gates in the system after the expansion. To do the description in this way the user 
needs to verify how each variable was defined by using the SYMT table, DESCT table 
and INI table that were built by the system and saved in the user disk as files with the 
extensions STB, DCT and INI, respectively. 

Another point where the user needs to be careful when using the MultiSim 
package is the insertion of gates or user defined primitives in the library of the system. 
One of the enhancements done in the system by Kelly was the insertion of the 
ADSTRUC command in the system( [Ref: 8] ). This command wil allow the user to 
insert any Circuit in the library as a user defined circuit, but this insertion will not allow 
the use of this circuit as a primitive from the library in the Editor program, because the 
only part that was added to the system was the structural description of the circuit. In 
this case when the user uses the new circuit in the description of a higher level circuit, 
the compiler will not use the inserted circuit as a primitive and will expand it, to use 
the characteristics of the lower level circuits that compose it. Because of this expansion 
the same problem that was described in the previous paragraph will happen, and the 
system will loose track of this new primitive, and the user cannot use it in the Editor 


i 


program. The only possibility for the use of a user defined primitive in the system 
without any restriction is the ADDLIB command (not implemented yet), that inserts 
not only the structural description but also the block description of the circuit, and this 
is the way that the primitives need to be described to be used without problems. 

Because, until now, all the primitives that were defined in the system had 6 or 
less inputs the programs were prepared to work with gates (or circuits) that have up to 
10 inputs. To allow for a gate with a greater number of inputs to be supported by the 
system, the following modifications need to be made to the programs: 


1. In all the programs the description of the structure of the INI table needs to be 
modified. This definition appears in the declaration STRUCT INP_NAME and 
the modification that needs to be done is the insertion of the room to allow a 
greater number of inputs in the table. This insertion needs to be done after the 
INP1O[8] part of the description by putting the declaration CHAR INPII{8], 
INP12([8], until there is room for all the inputs be placed in the table. 


2. Since a great number of inputs could appear in the table the CKT subroutine in 
the CADD program (Appendix A) needs to be modified to work with the new 
number of inputs. This modification needs to be done in the part of the 
subroutine that fills the places of the INI table when the compiler reads the 
description of the gate. 


3. In the compiler program and in the editor program the segments of code that 
copy the INI table to a file and vice-versa need to be modified to allow a copy 
of a table with more elements. Those parts are in the end of the main routine in 
the compiler program (Appendix A) and in the beginning and in the end of the 
main routine of the editor program (Appendix D). 


4. The MDFYFAWN subroutine of the editor program (Appendix D) needs to be 
modified to allow the update of the fanload when the system works with gates 
with more than 10 inputs. 


5. The DELGATE subroutine of the editor program (Appendix D) needs to be 
modified to allow the deletion and use of gates with more than 6 inputs. 


6. The IDINP subroutine of the PRCMPI routines (Appendix E) needs to be 
modified for the same reason that the CKT subroutine was modified in the 
compiler program. 


The points that were presented in this section are very important because if they 


were not followed as presented the system will have problems in the future. 


B. FURTHER WORK 
Even with the great improvements done to the MultiSimPC package with the 
insertion of the Editor program, there are other improvements which could be made in 


the system. 


iS 


The first improvement that needs to be made is the communications between the 
user and the MultiSimPC. At this stage we cannot consider the system to be user 
friendly, since the user needs to write two or more files, depending of the work that 
he/she wants to do and also the user needs to Know all the VOHL syntax to describe 
the circuits for compilation and editing. To improve the way that the system will be 
used the system should be made into an interactive program, where the user calls a 
program and the program asks him/her about the possible things that can be done with 
the program and the user selects the segment that he/she wants. All the information 
that the computer needs to perform the job will be asked of the user by the computer. 
This is not a very difficult problem and was not implemented only because of the time 
required for preparation of this thesis. However, this could be a great improvement in 
the system because the user will not need to know the syntax and the meaning of the 
several commands and will no longer need to write the files necessary for the 
implementation of the circuit. 

Another improvement that can be done in the system is the insertion of the 
command ADDLIB in the system. As was explained before, the insertion of this 
command will allow the insertion of user defined primitives in the library of the system 
without any restriction with respect to the Editor program. In the [Ref: 9] Kelly 
presented all the directives to the insertion for the ADBLOCK command that will 
insert the block description of the primitive in the system. If the ADBLOCK command 
was implemented, the operations that are performed in it can be joined with the 
operations done in the ADSTRUC command to generate the ADLIB command. 

Another point that needs to be considered in the system is the design of a 
graphic capability to take the circuits presented in the VOHL syntax and display them 
in graphic form in the screen. This will certainly be a very difficult challenge to execute 
but when ready it will greatly improve the versatility of the MultiSimPC package. A 
possible solution for this improvement was presented by Kelly in the ( [Ref. 9] ). 


C. CONCLUSIONS 

The results of the tests performed on the different circuits shows that the Editor 
program could be a very good help in the debugging of digital circuits. As we can see 
in the various tables presented in the last chapter, the program had good results in 
each of the cases that it was designed to work with. 

The results presented in that chapter can not be taken as a base for the time that 


the system expends to modify a circuit with a specific number of gates. In general we 
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cannot say that this program will not be advantageous to replace 10 gates in a circuit 
with 142 gates just because in the ALU circuit the time to do this replacement with the 
editor program was greater than the time needed for recompilation. This time will vary 
from one circuit to another as a function of the different characteristics that are 
inserted in the circuit. Even the same circuit could produce significant differences 
between the times for edition. Suppose that we have a circuit with 142 gates where 130 
of them are already initialized. Suppose now that we want to replace a gate in this 
circuit, but the output of this gate was not initialized. In this case the system will not 
need to work with the initialization file, since that variable did not appear in it, and 
consequently it will need less time than the case where we want to replace a gate that is 
already initialized and will need more work to complete the command. 

The tests that were realized show the correct time for edition in the ALU and 
TEST circuits only when they present the characteristics (initial values, modified delays 
and printouts) that appear in the original description of the circuits (Appendix H and 
Figure 1.2, respectively). A modification in any of those characteristics can drastically 
modify both the time for compilation and the time for the edition of the circuit. 

However, the important point is that the Editor program has the goal of help the 
debugging of the design of digital circuits. After a circuit is designed and tested the 
normal debugging is done by making small changes in the circuit and verifying the 
effects of those changes in the behavior of the circuit. In this way the Editor program 
fulfil its function, because for small changes it always has a better performance than 


the compiler program. 
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mimG DEF() ; /* DEFINE Pasting routine | * 
mat INI ; /*X INITIALIZE parsing routine */ 
fiat PRI() ; /* PRINTOUT parsing routine a 
extern int add_lib(); /* adds primitives to library */ 
int rfdel() ; /* Bee eas delay poets, * / 
int bdread() ; /* block delay reading routine */ 
int cmode() ; /* code generation for mode * / 
int feEsen\) ; ye ae matrix and mode gen. */ 
int parseid() ; /* single id Easing * / 
ie tindid() - /* finds symbol table index * 
int finddesc() ; /* finds symbol table index for */ 
/* the gaven function Reger  / 
int updesct() ; /* updates the descriptor table */ 
(es (mane and symbol table index)*/ 
int findprim() ; /* inds primitive library index*/ 
int update() ; /* update symbol table * 
int connect() ; /* code gen. and fanld update */ 
/* (descriptor interconnections )*/ 
int code_input() ; /* code generation for INPUTS */ 
/* declaration on - 
int errmessage() ; /* error message printing * / 
ae C peterror() . /* output error message * / 
int error() ; /* error handling routine * / 
mae firstp() ; /* first pass for expand  / 
int secondp() ; /* second pass for expand * 
int pdelim() ; /* rints a file of keywords and */ 
a okens, separated by delimiters*/ 
Daeertype() ; /* finds type of a identifier 
int reverse($ ; /* Reverses a Be uan gd * / 
Mateccopy() ; /* file copying routine */ 
int copy_noend() ; [* penne everything but END token */ 
int itoa() ; /*® integer to ASCII routine 
int cexpand() ; /* eypange the primitive in ckt */ 
int substitute() ; /* substitutes the func's code “*/ 
int foutorder() ; /* one to one correspondence for*/ 
int finorder : /* actual and formal parameters */ 
imeeckt line() ; /* scans one line of ckt desc. * 
int search() ; /* search a delimiter or toknn */ 
ie tack() ; /* tacks a number to an id | He) 
int multi_mod() ; /* sub module handling routine */ 
int fadvance() ; /*® advances to next line * 
int hashf() ; /* converts input name to number*/ 
ras test(); /* tests for hash collisions * 
[Keen cereccccn---- DATA STRUCTURES cee sees eee seeesecessssesesesse=s- 
struct sym_tab { /* symbol table 
char name[8] ; /* name = name of id 
iaeeaescno, funcno ; /* descno = descriptor number 
/* funcno = primitive lib index 
int fanld; /* fanld = actual circuit load 
int despos, delpos; /* despos = descriptor spaces on file 
. : /* delpos = delay spaces on file 
Siee2ni num, pri_num;> /* ii Perio abe tat Za eLon order 
/* pri_num = printout order ’ 
int pri_val; /* pri_val = # characters in variable 
struct desc_tab { /* table containing function | 
char fun[8] ; /* names oe names) and their 
int dnum ; /* symbol table indexes 
struct norm_tab { /* table containing function 
char nom[8] ; /* names/types and associated 
fat hmid ; /* normload declared in DEFINE 
eeruct prim_tab { /* Primitive table 


Diy, 


ay 


char pane) ; /* primitive table * / 
char nam2[8] ; /* XTENDED primitive table % / 
int numpar, outp ; /* mnumpar = no. of parameters * / 
int normld, fanout ; /* for the function * / 
airnite technology, overld ; /* outp = # of outputs * / 
struct err_stack { /* stack for errors in one line * / 
char nm[8] ; /* nm = name of unexpected id */ 
int errno /* errno = error n er * / 
struct exp_tab / > expancGmtab ce) 7, 
char fname[8] ; /* £num = prim lib index * / 
int fnum ; 
struct namepair { /* this holds system-generated * / 
char e_from/[ 8]; /* expansion requests * / 
char e_to[8]; 
struct swapname { /* each of these nodes will contain a module */ 
char sname[8]; /* specified in the USING parameter list */ 
int used; /* this indicates whether used or not * / 
struct inp_name { /* holds ali the inputs for each gate % / 
char iname([8]; /* iname = name of the variable ss 
int inp_num; | /* inp_num = # of inputs in the gate a 
char inpl(8], inp2[8];  /* inpl to inpl0 = inputs for the gate */ 
char inp3(6),. 2npes)- 
char inpots|, i2ngoves- 
Char 2np7i6), snes si- 
char inp9[8], inp10[8]; a 
Int-—Tlin- /* ifin = termination of the table % / 
struct tab_del /* holds all the information about the */ 
/* gates that have modified delays si! 
int indx, dsc_nb; /* indx = index of the table * / 
/* dsc_nb = descriptor number a7 
int typ_num, num_ipt; /* typ_ num = type of modification |. * 
/* num_ipt = gate's input to be modified */ 
int num_opt, val; /* num_opt = gate's output to be modified*/ 
/* val = spaces occupied in the file * / 
pel meee eet e mem eee emcee eseccecccescosoe eee eee eee * / 
| Keeecoccrrrcr--- STORAGE ALLOCATION----eeee-eeee sere sesesesese==- Ue * / 
struct sym_tab symt[maxsym] ; 
struct desc_tab ect ee ; 
struct norm_tab nort[maxnorm] ; 
struct prim_tab primt{maxprim], *primptr ; 
struct err_stack errt{5] ; /* max of errors per line % / 
struct exp_tab expt[30] : /* max_30 expansion requests 7 
struct swapname typelist{ma rim] [8]; /* table of module replacements*/ 
struct swapname taba eras 20118] : /* USING parameter list storage * 
struct namepair reqtable[maxprim] ; 
struct inp_name inptab[maxsym] ; 
struct tab_del del_tab/100]; 
struct sym_tab temporary ; 
int req_count; /* number of system eats reqsiaz) 
Int 2 nescount, /* line index for swaplist 8 
int swap_flag; /* indicates whether all of this*/ 
/* is necessary or not » 
extern int found_start; /* marks occurrance of SWAPLIN */ 
extern int found_end; /* marks occurrance of ENDSWAP */ 


unt sfound; 
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int add_flag; (Zescuaitecciamis to be added to*/ 
/*® primitive cee a 
fmt err_ptr ; /* error table pointer (count) */ 
/* for one line. ey 
int matcount ; /* delay matrix count ay 
int delimiter, bb, skip ; /* delimiter = delimiter type * / 
* bb = buff[80] index (line) */ 
int rdmat[maxouts][maxouts], fdmat[maxouts][maxouts] ;. 
/* rise and fall delay matrices */ 
me toknn, err_count ; /* err_count = error count * 
int desc_no , sym_count, symid ; /* desc_no = desc. count*/ 
int dptr, descid, lim ; /* descriptor table indices * 
/* dptr = descriptor table cnt %*/ 
int normcount ; /* normtable count * / 
int expcount ; /* expand table count * / 
int cellcount; /* # of MODULEs in user Paoor en * / 
int filecount,pct; J/* poutcounmsused for debugging */ 
int Bugapt "ag; /* controls printing of source * 
int print_select; /* determines whether a ')' causes*/ 
Y /* a linefeed or not (default=no)*/ 
maeeprim_ count, primid ; /* prim_count = # of primitives */ 
int sys_prims ; /* number of permanent (system) */ 
/* primitives 2) 
PicesavVprim ; 
igeeinpcount,outpcount; /* number of inputs and outputs */ 
*(used to add a Be ee mene? ay 
int features[maxprim][2]; /* first field describes the type of */ 
/* descriptions available; * 
xk =-1 => empty 0 -> block only x / 
ee eStincaonly a2 =>block & struc ~/ 
/* second field indicates primitive level */ 
int append_table[maxprim]; /* keeps track of the functions we've * 
int append_index; /* added to the user Paedaan 
int expdone; /* marks completion of struc expansion*/ 
int no_compilation; . used when only making library additions*/ 
char token_buf[8], savbuf[8], buff[{80] ; ie buff = 1 line */ 
char keyword[maxkey][8] ; jk keyword table 
San. inch; 
char instack[maxouts ] el outstack[maxouts][8] ; 
char Heep naxouts H ? Bee cocnlnc nonce 8| ; 
char in2stack|maxouts}(8], out2stack(|maxouts|[8] ; —_ 
/* in/out stack = inputs/outputs from primitive's definition in */ 
oe AG peck: inl/outl = calling gabe eadee ePues (user program) “| 
/* in2/out2 = inputs/outputs of each line in primitive's desc. */ 
char typstack[maxouts][8] ;/* types of primitive to be expanded */ 
int typcount ; 
feencex, act_val ; 
int indexl, eee 
ieeeord Ini, ord_pri; 
rile hashtabie[ 100) ; Pome ie ashe tale 5 a) 
int hashcount; /* number of items in hashtable * / 
ie Lum ; 
ieevalact ; 
ant incount , outcount ; | 
Pitman count, outicount, indzcount, outZcount ; 
iaemoucorder, inorder ; 
iieecount ; /* for printing on the file */ 
char savfunc[8], userprg[8] ; 
int ft, occurance ; occurance = # of times call to au 
* primitive to be expanded is made */ 
FILE “rl ; /* pointer to input data file x / 
PEGE *r2 ; /* pointer to STRUCT Seek ay 
FILE *r3 ; /* pointer to modified STRUC library */ 
FILE *r4 ; /* pointer to user STRUC description */ 
FILE *wl ; /* pointer to expanded file PIlEXP */ 
mee tl ; /* pointer to temp file ah 
BEE *1i1 ; /* pointer to library ay, 
FILE *sl ; /* pointer to primitive's desc. SCR1 */ 


ie 


FILE *sZ ; /* pointer to expanded circureys sense 

PELE “noe; /* read pointer to input data file / 

FILE *wq ; /* circuit description for simulator */ 

FILE *sy ; /* symt table stored for edition ws 

FILE *de ; /* desct table stored for edition */ 

FILE *nm ; /* nort table storedetcr editren * / 

FILE “ip ; /* input table stomed for editaen */ 

FILE *dp ; [ode ay eeeae of the descriptors 

FIEE *tne; /* modified delay file for simulation*/ 

FILE *ti ; /* initialization file for simulation*/ 

PEEE te 7 /* descriptor file for simulation */ 
Reece: /* default delay file for simulation * 

FILE *tp ; * printout file for simulation */ / 
[RERKREKEKKAKAKAKAKAKAKAKK AK AKAEKKEKREKEKKEKKERK AKA AKKKEAKARKRAAK RRR AR 
~ “ 
* MAIN PROGRAM * 


* * 
RRKKKAAKKKAKKKAKKKKKAKAKKKKRKKKKAKAKKKKKKAAK ARK KKK AK KKRKAKAKAKRKKKKARKRKKKE | 


main(argce, argv) 
iced Gow: 
cee *argv[]; 
Ine a ee.4- 
SEHR GUS eG ne ys ao Aen 
Prlnpelaq = O= 
filecount = 0 ; 
anEcounEaa: 
outpcount=0; ate 
no_compilation=0; /* ae assume we're compiling */ 
print_select=0; /* print ')' without a linefeed */ 
req_count=0; 
swap_flag=0; 
line_count=0 ; 
hashcount=0; 
index = 0; 
indexl = 0 ; 
fOr l=) 1 <1 00s 4+) 
hashtable[i} = -1l; 


[ka-ee------------------PRIMITIVES SUPPORTED--------------------- */ 
for (1 = 0; i < maxprim; i =i + 1) 


pEimtii}.normid = 1; 
PEIMeE| 1) fanour —— 20 — 
primt[i}.technology = 0 ; 
ser Ee 1).overld = ; 


primsetup(&primt[{0]); /* initialize primitives */ 

sys_prims=prim_count; /* primcount may change, but */ 
/* we need a copy of its * / 
* starting value */ 

[Kees cer ec cecccrcces-- INITIALIZE <<sese<-s000 se s8 86 a ee */ 
, ; /*® initialize SY tabte a 
au (i = 0; i < maxsym; i = i + 1) 

symt[i].fanld = 0 ; 

Symt| 1). caescnos— ts; 

symt{1].funcno = -1 ; 

symt{1].despos = 0 ; 

SME Gelpose — Oar 

symt}1i}.ini_num = 0 ; 

symt(i].prinum = OQ ; 

symtLaa,priival = 0 ; 


/* initialize IPT weave * / 
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Eee (i = 0; i < maxsym; i++) 


strcepy(inptab[{i].inpl,"xxx" 
strepy(inptab/1].inp2,"xxx"! 
strepy(inptab|1].1inp3,"xxx"! 
strcepy(inptab/1]}.inp4¢,''xxx" 
strcepy(inptab/1}.inp5,"xxx" 
strcepy(inptab[1}.inp6,"xxx" 
Senepy( inptabe 1i,. Lnp? , "xxx"! 
strepy(inptab/1i!.inp8,"xxx"! 
strcepy({inptab p inp9 , "xxx"! 
strcepy(inptab[1].1inp10,"xxx 


3 
mor (1 = 0; i < 20; 1 = 
expt[i].fnum = -1 


for (1=0; i1<20; i++ 


i+ 1) 


or (j=0; 3<8; j++) 


eee ts) Muses 0s 


for (i=0; i<maxprim; i++) 


or (j=0; j<8; j+t) 


Pigg OUTS usec=O 


[Keene ee---------------- KEYWORDS 


~ 

3 

Oo 

ry 

O. 
MMO ~10 OB WINE O 


rt bp pe 
OmnRWNHEF 


keyword 
We oed 


eer ptr = ~-1 ; 


aap. count 


expcount = 0. 
printf£("Opening the circuit descriptor file... 
eed 
Ljy=ri; 


for (i=0; 
append 


Oye 


1<ma 
Saber 


append_index=0; 


=~ sj «= s «= = = = % 


“INPUTS! 
“QUTPUTS 
"TYPES") 


“FRLTau 


nENBUTS 
p 


"PRINTOU" 
"INTERNA" 
DEFINE" } 


PURE SOLRDEL 
, 'FALLDEL" 
, "TECHNOL" 
/UTTL" ) S 


"NMOS 


CMOS! 
MECL! . ; 
;"FANOUT" ) 
eres.) 
, "OVERLOA! 


"END 


"EXPAND" ) 
USING") ; 


ieee 
, 'ENDSWAP" 


9 
7 


;"NOEXP") ; 

WADDLIB") « 
MADSTRUC"S, 
 MADBLOCK") ; 


=e “Se ™S “SS TSH NSH NSH WH WS 


a” 


/* set USING 
/*® to EMPTY 


parameter lists wy 


/* set type list to empty */ 


/* error count for one 


/* 
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error count for program 


/*®* ini 


(AEC 


used to replace modules*/ 
marks each ckt line */ 
to be examined for swaps*/ 


add a cell primitive */ 
struc-only description*/ 
block-only Bese tone! 


*/ 


line 


uh 


ee 
ieide the append table */ 
empty * / 


cellcount=0; 
Beene ye me 
countcells(rl); /*® count the # of MODULES */ 
fclose(rl1); 
Been a neaee j aigeaae 
r2=fopen("d:outfile" ,"w"'); /* the "stripped  aame * / 
build(); /* strip off the END keyword */ 
Borinte (re, ! ENG nee 
fclose(r2); | 
if ((no_compilation==1) && (add_flag==1)) /* no_compilation set# */ 
are /* yes, add the modules without compiling*/ 
else . 
/* no, begin compilation */ 
Dee oee ecu ta ee 
wl=fopen Ndzpli", "wi, /*® copy user prog to "pli tia 
fcopy(rl,wl); /* (now we're back to * / 
fclose(rl); /* Ausif's code) * 
fclose(wl) ; 
Prince "Files are restored. Multimodule expansion begins.\n'"); 
Bean nana nnn n- === ------ -EXPANSION------------------------------ */ 
firstp() ; /* first pass, determine any expansion requests, “*/ 
put each request on expand table (expt 
* h q d table (expt) */ 
perform_expansion() ; any exXpansions handled in here */ 


rl=fopen("d:pl1" ,"r") ; <——Co 11 to iNEIEES 
pa fopentiasenfide’, 4a") ; PY P 

Ecopy(rl,r2) ; 

Eclose(r1) ; 


forint (r2, "END: \n''); 


close(r2); 

Se ete caren te /x* oon INFILE to OUTFILE */ 
r2=fopen "d:outfile", "wi; /®* but leave OUTFILE open */ 
BOP ene te): , 
fclose(rl1); 


cellcount=0; |. 
rl=fopen(!d:antile!) "r'l!)> 


countcells(rl); /*® count the # of MODULEs */ 
Eelose (nl) yy 
ri=fopen( d-inrile ol). 
struc_expand(); /* handle any strucaena prims */ 
ee oe iiyW /* copy this file back to pie 8) 
r2=fopen Wd:pl1", "wi" ; /* and expand the struc-only prims */ 
PCopy( nil, rz) 
So eee oe 
eLOSe (re): 
for (i=0; 1<expcount; itt) 
expt[1i].fnum = -1; /* clear the expand table */ 
expcount=0Q ; 
faGS tp): /* and take care of any modules */ 
if (expcount>0) | /* that struc_expand() added x / 
__ perform _expansion() ; 
if (swap_flag==1) /*® any USINGS to deal with# */ 
swap(); /* if so, make the substitutions */ 
[ Reece nner enn nner end expanSlonerec errr ere reer e sree cr eennn- * / 
rp = fopen Ndipllt trl) g /* expanded user program */ 
tm = fopen( "d-mede aw or 
ti = fopen("d-iniew ow! 
tc = fopen("d:descf","w''); 
td = fopen gece euanety 
coy =, FOsen Udi prnk ). Ww.) ae 
/* initialize compiler vars */ 
prinpflag =1; 
dptr =0; /* desctable count a 
normcount = 0 ; /* norm table count | * / 
reco ae = 0 ; /* symble table entries count */ 
inum = ; 
desc_no = 0 ; /* descriptor count * 
symid = -1 ; /* symbol table index x / 
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matcount = 0 ; /*® delay matrix count * / 
index = 0 
indexl = 0 
ord pri = 
ord_ini = 
filecount 
act_val = 0 


[Reece cccrescrec---- PeooliG BNEReODESCENERATIONS]<<<-<-<<<<<<=<<<<=- * / 
/* Recursive descent parsing is used . STD scheme 1s used for x / 
I code generation. BNF is as follows. xh 
/* <COMPILE> => <MOD> <INP> <OQUT> <TYP> { <CKT> } <DEF> <INI> <PRI>*/ 
/* Non-terminals are defined in their respective sub-programs  / 


ee 


fclose rp) ; 
/* save all tables * / 
= fopen ("dis symtable"', cet ; 


fprintf(s d\n",s count); 
seen Sy 13 ia\n* ora inl, erd pri); 


(i=0 ;i<sym_count;itt) 

fprintf(sy," ]s ]d",symt[i].name,symt[i].descno) ; 
fprinté a ealiel i | symt a ‘Buncto sym .fanld): 

pea nee sy,'! q eae a .despos,symt{[1 ‘delpos) ; 
pace ee sy,'"' }Jd Jd",sym -ini_num,symt[1 ] .pri_num) ; 
peinct (sy, |d\n'> anak ri_val); 


nose (Sy) 5 
re ("dideltable", e 

for Ui; ae index! 

or (i=0; can sitt) 


BOEINCL Pe 1 d" del_ el gic. del Su 
pe ee dq" del” poeta _num,del_tabfi ene ipt); 
peices eat d\n", del_ as i? num_opt,del_tab i] unio 
fclose(dp) ; 
de = fopen (ids descptab","w''); 
Beant ge. ! Je\n" /desc_no); 


oe de," Jda\n!" ,dptr) ; 
or (1=0; i< apth;i: 
fprintf(de," Ve ]d\n",desct[i].fun,desct[i].dnum); 
pevose(de); 
= fo ae (ids snortable'"', ae 
éprint® (nn ]da\n" | normcount 
or (1=0; -i<normcount; itt) 


pocimes(nm,' |s ]d\n'" nort[1i].nom,nort([ij .nmld) ; 


fclose(nm); | 
Bore(i = 0; i < inum; ae 


inptab[ i 
lp = fopen "d: inptable", helt 
moeantr(ip, | ]a\n" ,inum) ; 


for (i=0;i<inum;it+) 


fprintf(ip," ]s ]d",inptab[i].iname,in tab(i9. anpst num) ; 
pauaece EDs |S inp cab ellen ly, inp ab[1].inp 
Bint ip 1S |S",inptadi i) .inp3,inptab|1}.inp4); 

popente Pees se tnt .Inpo,inptab( 1} .inpo) > 
fprintf(ip," |s |s",inptab[i].inp7,inptab[i].inp8 
EoEInGe ip! js js" ara? i}.inp9,inptab[i ‘inpi0}-: 
preoncel (ipr | ee iMiptal [i] ..fan) ; 

fclose(ip); 

if (err_ count != 0) 
; error(26) ; /* Compilation discontinued message */ 
else 
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erro a a ; /* no errors encountered message * / 


outerror() 
} 
[kenw-------------- END OF MAIN PROGRAM--------------------------- */ 
[ RERKRRRKK RAK RK RKAKAKEKEK KKK AAA KK ARK RRA ARK AER RAK RARER ER 
+ 
: COMPILE SUBROUTINE 
RIAA RITA RAR IIA RIK AR ITT ITAAANARR RADE E eae 
| eee ene ae MAIN PARSING ROUTINE FOR 1 MODULE--------------- 


/* Recursive descent parser. Syntax directed translation (SDT) *) 
I scheme is used for code generation. BNF is as follows * 
es 


A 
<COMPILE> => <MOD> <INP> <OUT> <TYP> { <CKT> } <DEF> <INI> <PRI>*/ 
* <--> = non terminals, all others are terminals * / 


COMPILE) 
DEE ene begins. ‘ea 
: i= Cale io MODULE parsing routine * / 
INP ; /* call to INPUTS parsing routine 9) 7 
ot ‘0 /* call to OUTPUTS parsing routine */ 
SK1p = ; 
Th /* call to TYPES parsing routine * / 
PE elipe t=) 
oar ; /* '%' parsing * / 
skip ; 
CRC) /* Circuit interconnections parsing ay 
/* '}' taken care of in CKT * / 
filecount = 0 ; 
matgen() ; /* delay matrix generator x / 
FL Iecoun a= 0 
: /* DEFINE parsing % / 
filecount = 0; 
IN /* INITIALIZE parsing * / 
Fie count =O; 
PRI() ; /* PRINTOUT parsing * / 
filecount = 0 ; 
Epranen tm, val ne /* put a terminator on "modf" 7 
Peirce Cae! re /* put a terminator on “ange */ 
Ppeinee Cee, ! Nmijas: /* put a terminator on "descf" */ 
fprintf(td," \n" /* put a terminator on “delt" oH 
PEINGECE a O\n"'5 > /* put a terminator onslprnc */ 
fclose : /* clean up and quit * / 
fclose ; /* clean up and quit xf 
fclose td ; /* clean up andgatar */ 
fclose(tp); /* clean up and quit * / 
fclose(tm); /* clean up and quit */ 
1f (add_flag==1) 
eae ca /* perform additions to primitive library */ 
| Rowe w newer eee nen ereee-- END COMPILEeot tees teeters eres es seesseseree= * / 
[ RERRRRRKERKRAKAKRKRAKKRKRKEK KAKA AKRI KIRK IK IKRK IKE RRR RRR AIK 
x 
: MOD SUBROUTINE is 
HH HAHAH ARAAR RRR H ARIA RAAB BEBE GREK EG 
/*® <MOD> => MODULE <delimiter> id * / 
MOD() 
peaee eee /® ADD and MODULE parsing */ 
parseid maxkey) ; /* module name ay, 
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[ RRRKRRRARARAKKKKRKKKKRRRRRER RRR ARK KAKA RK ARK KERR RK KARA KAKA EK A 
* 


K 
f INP SUBROUTINE - 
KARAKRKKRARKKAKARK RARER RARER KAKA RAR RAK RARER RARER AKER RRA / 

/* <INP> => INPUTS <delimiter> <IDSTRING> */ 
oe 

peescsc\t) ; /* INPUTS parsing ® / 
DSTRING(O) ; /* input names * / 
[kaon n------------------- END INP--------------------------------- * / 


[ RRRKRKRRRKRAKERKARKRRKR RRR AKRKRRRKEREREREK RK AKE RR RRR RRR RAK AKR RK RK EK 
* * 


; OUT SUBROUTINE ; 
KAKRKRKRKK KKK KKK KAR REAR RK AK RK RAK RARER REAR RKRERE AERA | 
/* <OUT> => OUTPUTS <delimiter> <IDSTRING> ag 
a 
Beet) ; /* OUTPUTS parsing */ 
DSTRING(-13 : /* -1 = outputs code for sym tab */ 
[®---------------------- END OUT---------------------------------- * / 
[ RRRAKAKRAAKRKRKR AIK R KEK RRR KRIERKRERIRKRKRK EKA RIKKI RIKI RAR 
* * 
i TYP SUBROUTINE ; 
KARKKEKRKAKAKREAK ARK RK RK RK AK RKAK RIKKI KERRIER AR RIRRERARE RARE KERR 
/* <TYP> => TYPES <delimiter> <T> * / 
/* <T> => <PRIMTYPE> | <INT TYPE> | ; */ 
/* <PRIMTYPE> => <PRIMITIVE> = <IDSTRING> */ 
/* <INT TYPE> => INTERNALS = <IDSTRING> is 
/* '{' parsing is covered in this routine oii 
TYP() 
parseid(3) ; /* TYPES parsing * / 
a (1) /* <T> expansion */ 
get adirp at} : /* 41 = missing { error */ 
Find_token() ; . 
1£f (toknn == 4) joes i foundessthnen guit */ 
skip = 1 ; 
break ; /* no types declared * / 


if 


(toknn == 8) /* <INT. TYPE> expansion * 
= ae re ; /* -2 = code for internals */ 
else * TYPES expansion * / 
findprim() ; /* <PRIMTYPE> expansion Zh 
if (primid >= prim_count 
error(30) ;. /* undefined function % / 
IDSTRING(primid) ; 
/* end TYPES */ 
} /* end while 1 */ 
} /* end function*/ 
[Rewer rer cece ---------- END TYPoo--ce nee enn enn nnn ne en ner n nnn --=- */ 
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[RRHKKKKKARKKKKKRKKKAKKKAKAAKKAKAKKKK KK KKK KKAAAKAKKAKKAKRKRKKAKAKAKAKAKKKRKRKKKK 
* 


x 
* IDSTRING SUBROUTINE z 
KAKA AKAIKE KKK KKK AKIRA RAK AKA KAKI K KAKA RAI RRR A RRR | 

/* <IDSTRING> => id ; | <IDSTRING> id , */ 
IDSTRING(code) /* code = 0 for inputs,-1 for outputs * / 
he /* -2 for internals. */ 

PC eee a 
while (delimiter != 2) /* delimiter = ; * / 
parseid(maxkey) ; /* name */ 
update(code) ; /* update symbol table */ 
/* code = 0 for input */ 
[= =1 tommoucous 7) 
/*™ PEIM qepoge lyre */ 


if (code == 0 ) 


act_val = act_val ; it 


code_input(desc_no /* input code gen. xf 
L = Symocount.-— i; 
sym ease = 11 ; 
symt[1}.delpos = 0 ; 
if (code <= 0 ) 
desc_no = desc_no +1 ; 
} 
[ Keowee ce re cccccerse--- END DST RING =< eo eee */ 
[ RERKRKAKERRRK AKER AK AK KK KKK KK RIKER KK IKK IKK RAR ARK RRA R AR 
® 
% , CKT SUBROUTINE a 
KAKA RAK ARIK IRI K IKK RK AKA KK KKK IKI IK IKK KIRK KARA KKK IKI III 
[Kewen------------ INTERCONNECTIONS parsin ~---------------------- */ 
/* <CKT> => <IDSERIES> = <PRIM> ( <IDSERIES> ) ; <CKT> | * / 
x | | <IDSERIES> = <PRIM> ( <IDSERIES> ); */ 
/* <IDSERIES> => id | id, <IDSERIES> */ 
CKT() 
int outpar, end , i ; /* number of output parameters 


int savpar, j , savinp ; 
int Stoo cee Sav aoa Sy fwd 


/* savid[] saves symbol table indexes nue savn[{] saves desc. */ 
/* numbers for output list names “ 
end = 0 ; 
while (end == 0) 
ee <IDSERIES> for cutput>-------—— === 7 
outpar = -l ; 
while (1) 
See erene : /* left side of assignment statement */ 
ind_token() ; 
strcpy (inptab| inum] . inane, token_buf) ; 
if (toknn == 5) /* if } found, end compilation * / 
end =1 ; 
break ; 


if (toknn < maxkey) /* left hand side should not be a keyw.*/ 
error(25) ; 
outpar = outpar +1 ; 


findprim() ; 
Jf (primid < primucoune) 

error(25) ; /* output name is _ a keyword ay! 
findid() ; /* find the symbol table index * / 
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yi 


1 = symid ; 

j] = act_val ; 

Bet ils) /* sort the SYMT table * / 
strepy(temporary.name,symt[i].name); 
temporary.descno = symt |: .descno ; 
temporary.funcno = symt EunGcHO -; 
temporary.fanld = symt( 21 fanld ; 
temporary. SE EP Os = syme tt .despos ; 
temporary.delpos = syne i|.delpos ; 
strepy Sue fea name, t{j]. name) ; 
symt[1].descno = symt 1] -descno ; 
symt{i}.funcno = symt .funcno ; 
symt{i}.fanld = symt[ He fanld ; 
symt{i uceenes = syne] 1] despos ; 
symt{[1|{.delpos = symt|[j|.delpos ; 
strepy(s net] name, temporary.name) ; 
symtij se eeea = temporary. descno. ; 
symti J ‘euneno = temporary.funcno ; 
symt{j].fanld = temporary.fanld ; 
symt{j|.despos = temporary.despos ; 
symt|J -delpos = temporary.delpos ; 


; 


symid = j 


} 
act_val = act_val +1 
if (symid >= 0) 


savid[outpar] = 


e 
7 


ay save output indices in an array */ 


savnfoutpar] = pea descno ; 


valact = savid[0] 


if (delimiter == a) /*®* '=! should follow the output names */ 
break ; 
else 
if (delimiter != 1) 
error(31) ; /* ',' expected after each name * / 
} /* end while <IDSERIES> for outputs xh 
a (end == 1) jee >!  EOUnG. Quilty: / 
break ; 
ee re SIEGE 22 2 S205 95 2S 
getid(rp,33) ; /* function name * / 
ef (ets ea != 6) /* '(! should follow function name * / 
error(29) ; 
43 (err_count == 0) 
if (outpar > 0) /* if # of outputs > 1, connect exten- */ 
* sion pointers. a! 
ron (} = 0; j < outpar; j j +1) 
i Bee yee ol 1g 15 iene Senta savn[jtl ; 

Dreince te et jd io jd savn| itl \. savn[0 ; 
symt[valact]. aCe SROs = symt[valact]. espos + : 
fadvance(tc,8) ; 

} 
findprim() ; 


if (primid >= prim_count) 


mindid() ; 
ond = = symt[symid]. 
PI 


ab[inum].inp_num = 
err_coun 0) 


Porinte( tenis. | 


symt{valact].despos 


/* function name is a type */ 
funcno ; 


primt{primid].numpar ; 


12 


d jd" ,savn{0 
symt [va 


Ly 


»primid) ; 
act].despos + 3 ; 


fe aes ette 


a (Brant (printed. Sg (Outpal tion 


error ( 


for(j = 0; j <= outpar; j =j +1 


of outputs should be as in table 
update symbol table 
* and desc table 


symt[(savid[j])].funcno = primid ; 
updesct (token_ Mee savid ats) ; 
 oenen ae Sf <IDSERIES> for inputs=====<-==—5 22 
W = 
eeu = primt[primid].numpar ; /* number of inputs 
savinp = ; F 
Savprim = primid ; 
strepy( sav ie Sn e save function name/typ 
Es savpar != 0) wh e all inputs have been es A 
parseid(maxkey) , parameter of function 
Switch(savinp) 
case 0 : Beene Em ~inpl, token_buf) ; 
case l : Sue y(inptab[inum] .inp2, token_buf) ; 
rea 
Gaseaae: SEnC y(inptab[inum] .inp3, token_buf) ; 
G 
case 3 : strepy (inptab[ inum] .inp4, token_buf); 
case 4 : strepy(inptab[inum] .inpS, token buf) ; 
case 5: Sune y(inptab[inum] . inp6, token_buf) ; 
Ne 
case 6 : strepy(inptab[ inum] .inp7, token_buf) 
case 7 ; strepy (inptab [{num] .inp8, tokea Baas 
case 8 : strcpy (inptab[inum] . inp9, token buf); 
case 9 


Savinp = SaV.AND + 1 


finds 


: stropy (inptab[ inum] .inp10, token_buf) ; 


'/* find parameter's location in the 


connect (0, savn,  SWOP) ; ;/* generate code and update fanld 


f (savpar 


if (delimiter != 5) /* ')' expected after the last arg. 
error(32) 


; 


savpar = savpar - 1; 
acne iE 0) 


if (delimiter != 1) /*, expected after first parameter 


parseid See 
switch(savinp 
case Q 
case l 
case 2 
case 3 
case 4 
case 5 


y) ; /* get next argument 


a perepy eee ae ~inpl,token_buf) ; 


: strepy(inptab[inun] . »inp2,token_buf) ; 


: eee y(inptab[inum] . inp3,token_buf) ; 
E 


ea 
: Seu y(inptab[inum] . inp4, token_buf) ; 
i 


; strepy(inptab[inun] ~inp5, token_buf) ; 


: strcpy(inptab(dnumls .inp6, token_buf) ; 
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case : SeEcoy snp eaa enum .inp7,token_buf) ; 


6 
case 7 : strcpy(inptab[inun] . .inp8, token_buf) ; 
case 8 : cs y(inptab[inum] . inp9,token_buf) ; 
9 


re 
case : strepy(inptab[ inun] . .inp10,token_buf) ; 


brea 


savVinp = savinp + 1 ; 
if (savpar > 1 


if (delimiter != 1)/* , expected after argument * / 
error(3l) ; 


ice 


{ 


if (delimiter != 5) 
error(32) ; /* ) expected after last arg. x / 
findid() ; /* find symbol table index for the */ 
* input name x / 


connect(1,savn, eT: /* generate code and update fanld */ 
savpar = aaa - : 
fwdp = fwdp +1 ; 


if (outpar > 0) /* multioutput case */ 
oucpar = sourcpar = 1 ; 
else 
if (savpar != 0) /* multiinput case “*/ 
Eoriner (to, = 1 14 15 }d",savn[fwdp - até desc_no) 
printf(tc," 1 jd 16 jd",desc_no, savn|fw eee a) 
symt[valact]. eee = symt[valact].despos + 8 ; 
Plaance (E48 


savn[fwdp] = desc _no ; 
desc_no = desc_no + 1 ; 


} 
pe end if ef 
ao /* end of <EDSERIBS> fo inputs ~/ 
iInum = inum + 1; 
3 /* end while end = 0 * / 
: /* end <CKT> x / 
[Ran------------------ END CKT-------02- 2-22-02 --2--------------- x / 
[RRERAKRKAERKRAKKR RK RK RK RARER ARARK KKK RAR ARKKRARKR RAR RRERKRRERERK RK 
k 
. CONNECT SUBROUTINE ‘ 
AAKKKKKARKKKK KERR ERK RK KKK ERR RRR KKK KERER ERR RARER ERR KKK KAERERER | 
/* Circular list generation for the circuit. Previous list is uh 
/* broken and new circular loop is made. ay | 
connect (f, savn, £wdp ) 
et. £ ro eOnOn les, 
lay savn[], bude ; /* savn has desc # of output names */ 
> 
mnt i ; 
if (err_count == 0) 
[ Re wnn nnn cece cece ccceen- pda Uemenaiilid Soaace=-= sss sssosa7-s== * 


for . = 0; i < normcount; i = i + a (7 LING inane sinnon te. / 
“a stremp(nort[i]. nom, savbuf) = 
fee 
mee(i < normeount) /* if over ride is used for norm load */ 
symt[symid].fanld = Fi molec jean e tt enotre|| theimLG, | 
else use ault value from prim. lib  */ 
eresynidy . fanld=symt[symid].fanld + primt[savprim] .normld; 


2g 


gprinti(tc, US 2aae, sume [syag see crey : 
printf (te, 3 "ia symt symid].descno) ; 
Save current pointer from the in ut % / 
Eprintf£(tc," 1 Jd 8 ja symelisvmerc | aeeeee sayvn([ fwdp] 
Spee tc," 1 Jd 11 jad", symt sync] sascnd, f); 
printf(tc," 1 )aeemiiae “savn[ fw ] 
FOrInce ce, 


d 12 ]d", savn [Evel i! 
/* complete the é- -list x / 
ganeatgheja ee: ik ae 


symt[valact] . espos = symt[valact].despos + 20 ; 
1lecoun : 
} /* end connect */ 
[Rao e-------------------- END CONNECT ------------------------------ * / 
[ RRKRKRREKKRKRKRARARARKEKERERERK ERK RARE RKRKERERERERERERERE 
k 
: DEFINE SUBROUTINE zs 
KKKKKARKKRKKK KEK AKKRKKRKR RK ERKRRKRKKRKRRKKKAKEKERAKREKERARRKRRERKKRKR 
/* <DEF> => <PRIMID> <DEFINITIONS> */ 
Le <DEFINITIONS> => BL pEpeLay (num, num) = num a 
FALLDELAY(num, num) = num ae 
Wi FANOUT = num af 
/* NORMLOAD = num fi) 
Ve OVERLOAD = num uy 
[* TECHNOLOGY = <TECHTYPE> a 
/*® <TECH TYPE> = TTL | NMOS | CMOS | ECL x / 


ee 
int j, num, savtoken ; 
int fanl, techl, overl ; 
skip = 0 
parseid(9} : /* DEFINE expected */ 
while (1) 


er ches 2) : 
en /* function name or t x / 
i (toknn &) 6) /* 1f token = 'INIT LIZE! x/ 


ski 
Set : 


} 
del_tab[index1].val = 
strcepy(savbuf, token Bae -/* save function name in savbuf %*/ 
findprim() ; 
if ( primid >= prim_count) 








£indid Q : 
primid = symt[symid].funcno ; 
fanl = primt{primid].fanout ; 
techl = primt{primid}.technology ; /* default parameters x / 
overl = primt|primid].overld ; 
we reer en eee en eeeeee=- statementq-<ce reset eer eee ecere-- 
/* DEFINE stat ie */ 
i as (delimiter != 2) /*® @ach DEFINE ends with ';'! x/ 
etid({r : 
‘get oN ee 
savtoken = toknn ; /* savtoken = 'RISEDELAY' ...etc..*/ 
swatch (oameeely f 
case 10: rfdel(0) ; /* rise delay x / 
break ; 
case ll: rfdel (1) ; /* fall delay x / 
case 12: cette ome Bases /* TECHNOLOGY = -- x / 
= 13; j <= 16; j = j +1) 
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{ | 
if (strcemp(token_buf, keyword([j]) == 0) 
break ; 


it (j > a 


error (36 /* undefined technol.*/ 
else 
ice =jJ; 
case 17: getid( tp, ,33);/* FANOUT gee value of para. yy 
break atoi(token_buf) ; /* SCII to integer */ 
brea ; 
case 18: brea = normload handled in first pass */ 


_case 19: getid( ep, 33 )ie 
IF = atoi(token. buf) ;/* value of overld */ 
reak ; 
default: error (36) 
/* end switch */ 
3 /* while ; each DEFINE ends with ';! */ 


/* syntax error message */ 


y 
if (err_count == 0) 


lim = 
while (ce <eeClisitet: ) 


finddesc(savbuf) ; 
ee lim > dptr) 
break ; 
num = aymt {descid) . .fanld ; 
ae? 


del_tab(indexl].indx = index; 
del_tab/indexl}.typ_num = 12 ; 
del_tab/indexl}.num_ipt = 0; 
del_tab[indexl]}.num sot = = 0; 
cmode (num, fanl, overl, techl) 
index = index + 1 i 

indexl = indexl + 1; 


} 
3 

eee g 

} /* end while (1) a 
E /* end DEFINE 
[Rewwnececwerenncncnn- END DEFINEwee ener nner nnn nen nn nnn nnn cnnnnn- a 
[RRRKKRAAKKARKARRRKARARRKKRR AER RAR RAK RAKRRKERRKAKARARRRKARAARERRAKK RA 
* | & 
E CMODE SUBROUTINE . 
RRRAAKR RRA RARARARK RRR ARRR RK KKK KERR KKK AAR R ERK KERR RRR EERE KERAREE / 
/* Code generator for mode. Code is generated only if mode !=0 */ 


cmode(num, fanl, overl, techl) 
int num, fanl, overl, techl ; 


if (num <= (fanl + overl)) 


if (techl == 16) 
fprintf(td," 1 Jd 6 2", symt[descid].descno) ; 


else 
fprintf(td," 1 Jd 6 1", symt[descid].descno) ; 
else 
if (techi 16) 
poeinte(td, " 1 jd 6 3", symt{descid].descno) ; 


else 
eaeinte(ta, " 1 Jd 6 4", symt[descid].descno) ; 
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fadvance(td,4) ; 


gern reel ieccar locates = Se adexs atic : 
del_tab|indexl}.val = del_tab[indexl].val + 4 ; 
* end CMODE */ 


[RRRRRAAKKRRRRARAKKRKR AAR AKKKRRRRRARKRER RRR AK ARERR RAKE RRRAKKRKRKA 
* * 
2 RFDEL SUBROUTINE : 
KAKKKAKKKKKERKKAKKAKKKK KK KERR RRR ARR AKKKK RRR RR RRR RKAKK AKA KAAKERERK / 


/* code generator for the delay modifications */ 


rfdel(n1) 
Ti de 


int Ree a parml, parm2, num, savparl, savpar2, inp ; 
if (delimiter != 6) 
Crpor( 2) /* '(' expected after RD, FD */ 
getid(rp,33) ; ) 
parl = atoi(token_buf) ; /* first index */ 
parml = Beare ; 
parm2 = primt[primid].outp ; 
if (parl > parml1) 
_ Serer (so): /* incorrect first index */ 
if (delimiter != 1) /* ',' expected */ 
error(31) ; 
getid(rp,33) ; 
par2 = atoi(token_buf) ; /* second index */ 
if (par2 > parm2) 
_error(40) ; 
if (delimiter != 5) 
error(32) ; /* ')' expected * 
gee ee ee ); /* value of rise delay */ 
num = atoi(token_buf) ; 
Savparl = parl ; /* save first index * / 
Seue ae = par2 ; /* save second index */ 
Im = e 
while ( lim < dptr) i qenena te code for all*/ 

* descs. using name in */ 
finddesc(savbuf) ; /* savbuf fs 
del_tab[index1].dsc_nb = symt[descid].descno ; 
del_tabjindexl}.num_ipt = savparl; 
del_tab{indexlj.num_opt = savpar2;_ 

lim = lim + parm2 - 1 ; /* lim is incremented by # of outpucca, 

Lf (iam. > doar, /* desctable has successive entries 
break ; /* for multi-output descriptors 

fadvance(tm,2) ; 

Lea part Sse.) /* first access desc. */ 


fprintf(tm," 6 ]d",symt[descid} .descno); 
del_tab pagers = del_tab[{indexl].val + 2% 
del_tab{index1l 





»indx = index; 
10 ; 
ies: 
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del_tab[index1].typ_num 
parl = parl = ; 
While( parl > 0) 
Sea ee Tales 
del_tab{indexl].val = del_tab[indexl].val + 1 ; 
fadvance(tm,1) ; 
parl = parl - 2 ; 


{* Ji page.) 
ae 2 /* if parl = 1 * / 


fprintf(tm," 4 ]d",symt[descid].descno) ; 
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del_ ~tabtindest] “1 -val = del_tab{indexl].val + 2 ; 


del_tab|indexl ndx = index; 
if (nl == 0 
del_tab[indexl].typ_num = 10 ; 
else 
del_tab[indexl].typ_num = ll ; 
inp = eavpat) ] 2; /* even or odd parl */ 
(par2 == 0) 
fprantere ne onic Wee: ( Beet 2" Ind) Aum) ee 
del_tab index1]. val = del_tab[indexl1 ] val +3; 
else /* multi-output case * / 
par2 = par2 | ae 
forint eae i “2 u{ 
del_tab jeden ]-724 = del_tab[indexl].val + 1 ; 
del _tab[{indexl}.indx = index; 


if (nl == 0 
del_tab[indexl1].typ_num 


10 ; 
ll ; 


else 

del meses typ_num 
ae 
while (par2 > 0§ 


gprinee tem: Dene 


del_tab| index1] val = del_tab[indexl].val + 1 ; 
ee sey dh) 2° 
par2 = par2 - 1 ; 
if (inp == 0) 
if (nl == 0) 
sprint eine ero a! num) 
del_tab[indexl].val = Gael ’ sab[index1] val + 2 ;> 
© e 
spranteeims i Ed num) 
del_tab[indexl].val = sei. ‘ eab{ index1] val + 2 ; 
Bc 
if (nl == 0) 
fprinte tims Pia" num) =: 
del_tab[indexl].val = cee _tab[indexl].val + 2 ; 
else 


fprant ey gm: els oe! Aum) 
del_tab[indexl].val = del ' tab[index1]. val + 2 ; 


fadvance (tm, 2) 
» 
parl = savparl ; 
par2 = savpard ; 
index = index + 1 ; 
indexl = indexl +1 ; 


js /*® end RFDEL */ 


ie 


[ RRKKKKRKRKKAKAKKAKRKKAKAKRKRKKA AK KK RK KKK KR KRKAAKKRKKAA KK RK KAKKRKKKKAK KK 
* * 


‘ MATGEN SUBROUTINE . 
KKKKKKAKKAKKKAKKKKKK KKK KKAK KKK KK KKKAKKK KEK KKK KER KKK KAA KKEKAKK AKER EK / 


/* Also generates default mode values for all functions involved */ 


ae ea) 
int parl, Dae 1, Ja ep dere 
irk, NUM. Cle Ou ; 
char s[8]; 
[ke nnn------------------ DEFAULT MODE _GENERATION---------------- */ 
for (i = 0; i < sym _count; i = i + 1) 


if (symt[{i].descno >= 0) 
if (symt[{i].funcno > 0) 





descid =i ; ie cmode() needs descid for code gen. * / 
num = symt(1].fanld ; 
fl = primt{(symt[1].funcno)].fanout ; 
ol = primt{(symt/i].funcno)|.overld ; 
tl = primt|(symt|/1j}.funcno) |.technoloegy ; 
Af (nume> £1) /* if non zero mode 
cmode(num, £1, ol, Cee 
symt[{1].delpos = symt ij .delpos +4; 
} 
} 
pioocstesevessesnJ lee * 
Maier oe eww eee roeeee= DEFAULT DELAYS AND MATRIX STRUCTURE------- * / 
L = . 
eas i < dptr) 
2 = Sr etgeee nen aree .descno ; /*®* descriptor number */ 
= symt{desct[i].dnum].funcno ; /* function number * / 
n = desct{i}.dnum ; { 
strep primt[k] .nam2) > /* gs contains name of function */ 
bdrea sj /* read block delays for s in rd/fdmat x / 
oi ( = 0} /* if not input or types etc.%*/ 
parl = primt cae : 
par2 = primt|k].outp ; 
= Lo pare = - 1) 
* parl = number of inputs, par2 = number of outputs */ 
for (l= 1; 1 <= parl; 1=1+ 2) #£«°>/* vertical scanning 
edo we) 
ae > 4) 


PprInes ca ee 
symt{n].delpos = symt[n].delpos + 1 ; 


else 
forente td) "6.01 clams. 
symt(n].delpos = symt[n].delpos + 2 ; 
aie /* inputs = 1 or 2547 


fprante (ta, |!) 4. dy a 
symt{n].delpos = symt[n].delpos + 2 ; 


fadvance(td,2) ; 
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3 


} 


he 
2 
LE 


af 


ee eds for block delays-<<--<-<--<-----2----%/ 


(rdmat[1-1][0] != -1) 


fpnimtnaua 5 2 |d">rdmat| I-10] ) 
symt[n]. delpos = symt[n] . delpos + 3 


(fdmat[1-1][0] != -1) 


Eputace ta,” 5 3 jd", fdamat[l= Ee 
el Hie deipos = symt[n]. delpos + 


({1+1) <= parl) 
if (rdmat[1][0] != -1) 


=o SO 


forintf(td," 5°4 ]d",rdmat[1][0]) ; 
at ee = sential sete) See 
if (fdmat[1][0O] != -1) 
Powe MCtan | Sold ercmat pel itor) + 
Sal bole deipos = Jentiny Eee 3 ; 
} 
paavance\ ts: pall2)) ee / 
ace (m = 2; m <= par2 ; m =m + 1) 
if (m == 2) 
poe eee "14 ee matcount) ; 
symt[n].delpos = teeta lee delpos +2; 
matcount = ae COGn Lew 
else /* if number of outputs > 2 */ 
eee " 15 |]d jd", matcount = 1, matcount) ; 
symt[n] elpos = symt[n].delpos + 3 ; 
matcount: = matcount +l ; 
fadvance(td, Sa 
i ae ee code for block delays--rre----------- a 
if (rdmat[1l-1][m-1] != -1) 
SOT ae ' 16 Jd Jd" ,matcount-1, rdmat[1l-1][m-1]); 


} 


symt[n] delpos = symt[n]. delpos + 3 ; 
if (fdmat[l-1][m-1] != -1) 


fprintf(td "17 ]d Jd",matcount-1, peae ie l]{m-1]) ; 
symt[n]. delpos = symt[n]. delpos + ; 


Mee(( i+) <= parl) 
if (rdmat[1l][m-1] != -1) 


pee ee ae " 18 Jd Jd" ,matcount-1,rdmat[l][m-1]) ; 
symt[n]. delpos = symt[n].delpos + 3 ; 


if (fdmat[1l][m-1] != -1) 
Eee " 19 Jd Jd",matcount-1,fdmat[(1][m-1]) ; 
symt[n]. delpos = symt[n] . delpos + 3 ; 
3 
fadvance(td, 12am 
/* end for m 


/* end for 1 ue x / 
/* end if k >= 


1 =sisel se: 
/k end for i = -- x / 


wooo 22-5 -------- END MATGEN-------------------------------%/ 

[ RAKRKKRRKARRRKRRKKR KK ARK ARK KARR RK RK RR KAR RK RRA AKA K KR RK KRKKKRKKRKK KKK 
* * 
‘ BDREAD SUBROUTINE a 


KIKI A AKIRA AKIRA RAK IRI IR IR ARIA REAR AI KIKI IK IKARIA AAR 
/* This routine reads the block delays for a given function name */ 


bdread(s 
fas s{8| ; 


int 1, 3; numl , {xe ew 2 eee 

FILE “rl; 

char p[8] ; 

rl = che paid anspadclorac elie 2 /“pilock aia tiliege, 
ee initialize delay matrix togel —----——.22 2 oe 7 
for (i = 0; i < maxouts; i = i + 1) 


for (j = 0; j < maxouts; j = j + 1) 


rdmat[{[i]{j] = -1 ; 
‘Eanat i] [31 = 1 5 
3 
[ Keer re ns eerecccerec= read default block delays----------------- * f 
Eras one eee ; 
while (stremp(p,"END") != 0) 


Eocant (rly. 1a ,ouumiy a . 
for (i1 = 1; il <= numi; il = i1 + 1) 


fscanf(r1,"]d ‘2 ]d eos &y, Sw, &2) ; 
if (strcemp(p,s Q 


‘Fanat be £7 
if (stremp(p,s) == 0) 
bre ° 


reak ; 
fscanf(ri,"]s",p) ; 


fclose(rl1) ; 


W 
Z 


o 
c 
o 
é 


[*%--------------------- END BDREAD-------------------------------- */ 
[ RRRAKAKRRIK KARR RIER RARER IKEA KAKA IAAI IKARIA IK IRI IRE IR BK 
x * 
: INI SUBROUTINE : 
AKAIKE AAA KAKA AK KAKA KAKA KAR AAAI AIK IK IK IIIA IIA IAEA 
/* <INI> => INITIALIZE : <INITSTRING> | */ 
/* <INITSTRING> => id = num , <INITSTRING> | id = num ; */ 
INI() 
int flag ; aoe 
flag = 0 ; /* begint[0O] = NULL indicator x / 
if iskip t= 1) 
arseid(6) ; 
while (delimiter != 2) /* INITIALIZE “ends with. x / 
parseid(maxkey) ; 
if (delimiter != 4) /* ‘=' expected after the name * / 
‘error( 2) 
findid() ; /* symbol table index */ 


symt[symid].ini_num = ord_ini ; 
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Ova int = Ord_inz + 1 ; ie se 
getidirp, 43) ; /*x initialization value * / 
me (err _ count == 0) 


fprintf(ti, Ku Ra! 
me (fia a7 0) 

aa £(ti, eZ lnits) 
else 

Porinte ties); 
/* allocate storage for cd x / 
anaes eee 

enerate code * / 

gor inte( eh i Zoic, nt symial. .descno) ; 


iE eevee yt 2) \s', Ee 
ag 
Beeavance(ti,6) 
} 
73 wan n nnn -------------- END INI ----------- 02-000 --0--------------- x / 
[ RRRRAKRKKAAAKKKAKRAKKK RAK ARKK RR KAR KAKA KAAKKK EKER ARK ARRARRR KKK 
x 
PRI SUBROUTINE i 
JT AISI III RAI AHIR / 
/* <PRI> => PRINTOUT : <IDSTRING> */ 
PRI() 
lve 1 ° 
parseiat7} : 
fale (delimiter != 2) /* PRINTOUT ends with ';' * / 
parseid(maxkey) ; 
eoatt a). qd 
symi ri_num = ord_pri ; 
iP (ere count == 0) 
cor (3 = 0; 53 <= 7; 59 =j+il ) 
1f (token_buff{j] == '\0') 
break ; 
else 
Beer UEP 28 id id Jen, i, j,token_buf[{j]); 
rt = val rt + 
Peccencee 
Selsymid| Spel. ver = val_prt ; 
ier = = ord pri + Le; 
va 
EPEENEE (69, i" - ]d ]d",i,symt[{symid].descno) ; 
geyance \ Dy 3) 
i=it ; 
sean i - Sl as 2 a) 
advance(tp,4) ; 
js ------------------- END PRI------------------------------------- */ 
[ RRRRKKKKKKAKARRKKAKAAKAK RAR RRA RAKKKAAA AKA RAK RRAAAKAKAAKARRR ARERR 
* 
: STRCPY SUBROUTINE a 
RRAKKKAKKKKKKKKKK KKK KERR REE RRR ER KKK KKK KKK KK KAK KAKA RARE RAR / 
/* copies one string in another */ 
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strep /* copies s=t */ 


Cou) 
char — At ; 


while(*s++ = *t++) 


yk see emeeeeaeaoaen ae eeoee = END STRCPY ees eeeeee nw eeee an eeeaeaeeeaeaeeeeaeacaes */ 
[ RRRRKKRRKRRKARKRK ER ARARAR KARA RAERR ERA RARER RERRER IAA ERRERKRRERERA 
* x 
2 STRCMP SUBROUTINE ; 
RAKAARARK AKIRA AK AKA RAR K ARI KATE K TRIKE ARIK KIA KIRK RRR ARR RR | 
/* returns zero if string s is equal to string t : * / 


stremp(s,t) 
ener ste te 


int i; 


0 a ee 

MEET eNO 
return (0) 

return(s({i] - tf{i]) ; 


[Reoweennannnennnn------ END STRCMP-------------------------------- * / 
[ RERAKKRKKAKKAAKAKKAKKRKAKKRKKRAKAK RAK KRAKRARKKK AIK RK RKK RAK RAKE 
* x 
‘ GETID SUBROUTINE ; 
KAKA IKK KAKA ARIA AK AKA AK AIK RAIA AK AAA KAKA KARR AKA ARAKI RRA 
/* finds the next id in the user file */ 
getid(rx, ernm) /* finds the next id and returns it in token_buf */ 
int ernm ; /* error number in case of EOF */ 

ree Arx ; 


Int) eee, selacgi« 
flag = 0 ; 
delimiter = <1 | 
L = ; 
while((delimiter <1) | flag == 0)) 
f Vy 2 - 1 ee some non blank char is ay 


/* read into token buffer / 
C= foerc nx) = 
buff[bb] = c ; /* buff is the 80 character buffer for “%*/ 
bb = bb ; /* printing the entire line after it is */ 
lf «(pb >. 78) /* read. bb = index for buff */ 
bb = 0 ; 
sy etaaAc) 
case ' ' ;: delimiter = -1 ; 
break ; 
case ',' : delimiter =1 ; 
break ; 
case ';' ;: delimiter = 2 ; 
break ; 
case ':' ; delimiter = 3 ; 
break ; 
case '=' ; delimiter = 4 ; 
break ; 
case ')' ; delimiter = 5 ; 
break ; 
case '(' ; delimiter = 6 ; 
break ; 
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Seem seiem flag o—— 2) /* flag = 1 indicates that */ 
delimiter = 7 ; /* some non blank character*/ 
* was read into token_buf */ 

buff[bb-1] = '\0O' ; 


/* output errors in the oy 
outerror() ; /* line if any. 
bb = 0 ; /* initialize line buff ) 


break ; 
case EOF : printf("]-s\n",buff) ; 
error ernm) ; 


error(33) ; /* EOF error * / 
outerror() ; 

exit(0O) ; /* abort the program */ 
break ; 


default : flag =1 ; 
delimiter = 0 ; 


} 
if (delimiter == 0 ) 


if (i <= 6 ) 

token_buf[i] = 

iit ot 1: 

3 

} 
token_buf[i] = '\0! 
[Renwn------------------- END GETID-------------------------------- */ 
[ RRREKK ARK AKAAKAKAKKA KARE AAR RAK KARA KER ARK KERE RRR EKER RK RERK ER ER ER 
i 

ps FIND_TOKEN SUBROUTINE a 


RAKRKKAKKKAKKAKKKKAKKAKKKKRKKAKKKKAKAKKKAKKKAKRKKKRKAKKKARKKKKKRKKKKRRRARAKRKRKA 


/* Token = maxkey if a nonkeyword name is encountered else it is a 
/* equal to the index of the keyword in the keyword table * / 


: _token() 


iat 1 ; 
for (i = 0; i < maxkey; i=i + } - sequential search */ 
ete peeskoy (token_buf, keyword[i]) = 
break ; 
toknn = i ; /* token = maxkey, if match is not found */ 
[Renwnn------------- END FIND_TOKEN-------------------------------- */ 
[ RRRKKKKKRKRKAKARK RK RARER ARK KEK RK RRR RK RARER RERARK RAKE 
# 
: PARSEID SUBROUTINE ‘i 
FKAKKKKAAAA KARA KKK KER KER ERR ER ERR KERR ER RRR ERE RRA / 
/* find the next identifier number */ 
parseid(i) 
= i; /* i = token number to be compared to */ 
‘get (ep, Ss) : /* £ind the next identifier at 
ind token( ) ° /* find token number 
if (toknn == maxkey) /* check if name != pene) 
findprim() ; 
if (primid < prim_count) 
error(25) ; /* keyword found % / 
if (toknn != i) /* identifier of type ‘i! ah 
error(i) ; /* expected. * / 
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[ KRKKIK RIKKI ARIK KIKI ARIK ERIK KER RIKER ARIK IK IK IRI IK RIKER ERE 
* 
: FINDID SUBROUTINE a 
KAKKKKRKKAKAAKAKAKKK KR RERRRAKKKKK KAKA RRR RARER AAAI IRAE 

/* finds the symbol table index. An error message is generated if*/ 
* the name does not exist * 


cea 
PG 
for (1 = 0; i <"symscoune-. 2 = et R 
ao strcmp (token_ buf, symt[{i].name == 0) 
reak ; 
if (i == sym_count) /* name not found in the symbol table */ 
Sree ; /* undeclared name * / 
symid = -l ; 
else | 
symid = 1 ; 
[Ranwnnee-------------- END FINDID--------------------------------- */ 
[ KIKIKIK IKK RIR AK IK IK IKE RIKER RIKKI RIK EKA IR IRIR IRIE RAR 
* 
: FINDDESC SUBROUTINE = 


KAAKKKKKEKKAKKKAKKKKKARKKKKKAKKAKEKEKKEKKARKKKRKRKERKKKKRKEKRKKREKERKRKRKRAKKKE 


/* This routine is used in conjunction with the DEFINE parsmae tox/ 
/* update all descriptors using the name in sbuf with the decl- * 
/* ared parameters. 


Eee eee 
ad sbuf[8] 
Lee 2.7: F 
for (i° = lim; < dptr; i= 1) 
Lf (apron enue desct[i]. ye 0) 
SEE ; 
line = el 
descid = ies ee uieonan ; 
[ Keene ecco r ecco eren-- END FINDDESC#eeeee 2 eeen cease sees essa aesae x / 
[ RRRAKAKRKKRKKKK ARERR ERIKA AKA IK ERIK ARIK IR AIEKIK IIR IIR AIR IIR 
+ # 
UPDESCT SUBROUTINE ‘i 
AHR RIAKRRRRR RARER AR EERRARRRRERRERR ER BEDE asa 
/* This routine updates the descriptor table. af 
/* s = function name (type), num = symbol table index */ 
eee num) 
ar s[ 
rae num ; 
strepy(desct ptr]. Suny s) ; 
deck sper] ann ; 
Bote t : 
[ Rew eecococececserror--- END UPDESC] -< = 003 93 6668833 = == 2 = 2 2 ee */ 
[KERKKREREAKAKAKIKIKIKIKERIKIEK IRE RE KIRKE RE RE KIKI KK AKER ER ERE RK KR 
k x 
; FINDPRIM SUBROUTINE * 


KRAKKRRRRKKKKAAKKAKKKKKKKKKK KK KKKKKAKKKKKRKKKKKKKKAKKKKKKKKRKKKKKAKAAE | 
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feefinds the primitive index x / 


o_o 
mac i ; 
for (1 = 0; i< pan count; i= i + as 
af ( stremp(token_buf,primt(i].nam2) == 0) 
moreak ; 
Dbramid = 1 ; 
[®e--------------------- END FINDPRIM----------------------------- */ 
[RRERRARERERRRRERRARR RARER RRR ARERR RARER RRR RR AREER RERERERER ERR KKK 
k x 
E UPDATE SUBROUTINE z 
MMM AMAa Danser eee RRORY AERA LAANAAAAAAAAAAARRRRRAARKKA / 
/* This routine updates the symbol table. sym_count = symbol al 


/* table index, desc_no = descriptor number, 
/* typ = function type, 0 = input, -1 = output, -2 = internal x 


update (typ) 
ae EyD >; 
Syme sym ate errcre desc_no ; 


count = typ ; 
strepy aye (syn count].name, token_buf) 
ab [sym_ count].dsc_nb = desc_no ; 
a. _count = sym_count + 1 


° 
‘ 


[k=--------------------- END UPDATE------------------------------- */ 
[ RRRKAKRAERERARKKAKKRK RARER KIRK RIKKI KEK RARER ARK RAR AERA 
* k 
. CODE_INPUT SUBROUTINE ; 
RRKARKKKIRK KERRIER KR RRRERRRERRERK RARER RARER AR RER ARR / 
/* put the code for the input in the DCF file * / 
code ~input (i) 
mat i : /* i = desc_no */ 
ae 4; 
if (err_count == 0) 
EOrIntt Eee 3S ), ON) 
Aa token_bu 
Peintft(tc," Leow id: 


Hi os 

* par rameters 0 and 1 contain the input line name */ 
fprint£(te, i iP Id 1) oe 
advance(tc,15) 


/3 ~----------------- END CODE_INPUT------------------------------- */ 
[RAEKKRAKKARAKKARKKAKRRAKKAAR RAKE RAAERRRAKERERAKERRARKAERERRREREKK 
ie fe 
Ee ERRMESSAGE SUBROUTINE : 
NN cee eka LAAN NA ARAAAAAKRRERREREAAERRARRE / 
/* generates the error message * / 
errmessage(i) 
int i ; /* 1 = error number */ 
/* err_ptr = global indicating error table index */ 
Berne ERROR ''') 
switch(i) 


ease 0 =: printf(" 'MODULE' expected, ]s found\n'', 
errt{err_ptr].nm) ; 


14] 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


break ; 


Ohne 
break ; 
2 : printf (" 
break ; 
302 op ranibe 
break ; 
4 : printf(" 
break ; 
5: Drie ae 
’ break ; 
6 : printf£(" 
break ; 
7 2 printec’ 
break ; 
oe PRintec! 
break ; 
25: printf(" 
break ; 
265° pirnine 
break ; 
272 prints" 
break ; 
25° Ouinee Cl 
break ; 
29: printr(” 
break ; 
30-2 orinte( 
break ; 
31: princi. 
break ; 
323 (pEanee( | 
break ; 
332° Princes: 
break ; 
34: print£(" 
reak 
35: printf£(" 
break ; 
36: Drinee(: 
break; 
a7: printf (" 
reak ; 
38: pr 
reak ; 
39: pee nee 
reak 
40: rint£(" 
reak 
41: prints" 
reak 
42: print£(" 


‘INPUTS ' ETegc eee js foundyir 


errt[err_ptr] ; 

'OUTPUTS' e SoG ]s found\n", 
errt[err_ptr].nm) ; 

Eyres epee ]s found\n", 
errt[err_p rj.nm) ; 

'S' expected, ]s found\n'', 
Spree nesee le nm) ; 

'3' expected, ]s found\n", 


errt(err_ptr|.nm) ; 


'INITIALIZE' expected, ]s found\nll, 
errt[err_ptr].nm) ; 


'PRINTOUT' expected, 
errt[err_ptr].nm) ; 


'DEFINE' e 
,errt[err_p 


ls round \nle 


ected, found 
r).nm) ; 


name ]s is a_ keyword\n", 
errt(err ptr) cnn 


jd, >>COMPILATION discontinued\n", 
err_count) ; 


See tlee 


count = 
'=' expected after ]s\n'', 
errtlerr ptr |.nm)e- 


js is undeclared\n'", 
errtlerreptr |.) 


'(' expected after s\n", 
a reaiecminean nm) ; 


]s is undefined function\n", 
PFrtlerreptr | nm) 


'' expected after s\n", 
See CREE nm) ; 


')' expected after ]s\n'", 
eEere escent nm) ; 


unexpected EOF\n"); 
missing END\n"') ; 


incorrect # of args. 


on LHS ]js\n!! 
, errt(err ptr) .nm) 


errtierr. pti] .tieess an 

count = 10, >>Compilation discontinued\n") ; 
= 0, **xXEND OF COMPILATION***\n'') 

lst DELAY index is > lim\n''); 

2nd DELAY index is > lim\n"); 

missing {\n'') 

missing INITIALIZE\n") ; 
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break ; a 
case 43: pene massing.’ =! \n"). 
reak 


case 44: print£(" undefined function\n") 
Teak 7; 

case 45: pasta missing TYPES\n") 
reak; 


case 46: ease missing }\n!"') 
reak ; 

case 47: Pao a massing “9\n!") ; 
reak; 


Z 


case 48: printf(" missing DEFINE\n"); 


reak ; 

case 49: sea incorrect # of input arguments in call\n"); 
reak ; : 

case 50: Eo incorrect # of out arguments in call\n"); 
reak ; 


err count = err_count + 1 ; 
if (err_count > 9) 


error(37) ; 
outerror() ; 


exit(0) ; 
73 ------------------ END ERRMESSAGE------------------------------- */ 
[RRRAKAARAAR AK KAKARKAIKK IKEA KK KARA AERA AERKR AERA AK IRI RR IIR 
we x 
OUTERROR SUBROUTINE : 


KRRAEKRKAKAKKAKAKRKKKKAKRKARKERARKRRKRKRKRARRRRKRARKAKAKRKARKRRRKRRKRRKRRRKRKRARERK 


/* This routine outputs all errors encountered in a line after */ 
/* entire line has been read. * 


outerror() 


int A 
= ; 
while (err_ptr >= 0) /* if error count for a line is > 0 */ 
(* prance all errors encountered a) 
Baecsarcwertt (1) errno ; 
L=i1¢ : 
a = err_ptr - 1 ; 
3 
[ka------------------- END OUTERROR------------------------------- */ 
[RRRKAKRAARRARKRRAKKK AAA AKA RAR RR AKKAERKRAKKRRKAKRR RAKE ARERR ERR 
# oe 
si ERROR SUBROUTINE . 


KAKKKAKAKKKKKAKKKK RR RAK KARR RRR KKK EK RARER ARAKI RRR AAA RA 
/* This routine enters the error number and the name of the wrong*/ 


/* identifier in the errt (error table). The errors are printed */ 
/* after the whole line has been scanned. * / 


error(i) . 
a a. /* i = error number */ 
Sapepcr — err ptr + 1 ; /* error count for one line */ 
errt[err_ptr].errno = 1 ; * errno = error number ma 


strepy(errt(err_ptr].nm,token_buf) ; 
/* copy name of wrong identi.*/ 
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[ RRKRRKKKRKRKKAAAKRKKKRKKAK RK KKK RKAKAKKKARKKKKKKRKAKAKKKAKKKKAKKAAKKKKKK 
* * 


i FIRSTP SUBROUTINE * 


> 
RAKAKKKKKKERRKERARKKKERERKARKERKRRAERERARKEKEREKAIR ARK RERARRERARKER RAK 
/* This routine scans the user program for any expansion requests*/ 


/* if found, they are put on a aan stack along with their func #*/ 
/* Note that func no. may not be known at this time */ 


ee ce 
ee ee maxpid; 
Lt a, eo tpid, found; 
char tare 1 (8) target(8]; 
rl=fopen("'! pil", ae 
search(rl, rl, -1, 9, 0,48) ae search for DEFINE (9) * / 
48 = nee aoe DEFINE ores * / 
geet wal a : /* 42 = missing INITIALIZE error 
ing token : 
W = Hee eee) /* search for EXPAND */ 
1f (toknn == 21) /* EXPAND */ 
sfound=0 
getid(rl, 33 ; /* this is what we expand; 33 = EOF error */ 
<et expcount].fname, token_buf) ; 
strcepy(templ, token _buf); /* save name for later */ 
expcounttt; 
eG dCi, 33); /* how far do we expand# */ 
indprim() ; ao. 
if (primid<prim_count) /* a valid primitive# */ 
Aone a eee eae /* yes, save it as is */ 
tpid=primi 
else 
ound=0; /* no, what type is it# */ 


for (i=0; i<x=maxpid; itt) 


=) 
ues (typelist[{i] [j].used==1) 
if (stremp(token_buf,typelist[{i][j].sname)==0) /* match# */ 


soe (target,primt[i].nam2);  /* primitive name */ 
gel a /* primitive id */ 
eband=i 
break; 
else 


j++; 
} joe end while */ 
fe ( found= =1) 
rea 
3 im ane for */ 
if ((i>maxpid) && (ounce =0)) 
error(44); 
* end else */ 
check_deeper(templ,tpid, target); 
if (sfound==0) 


printf("l couldn't £ind Js anwar of the circult descriptions.\n", 
target 

printf yavnbe yeu wish to: \naie z 

Primer ontinue eye 

Paes ‘ SAVE Up An 

Diener "Enter the number of your selection "); 

Scan wala, EVOn) 

one Laeidionsaee 
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exit(0); 
/* te if toknn=21 */ 


getia(ch ,42 y= Look for INITIALIZE */ 
ind_token( 

/* end while toknn */ 
multi_mod(); /* do multimodule case after */ 
fclose(r1); /* enumerated EXPANDs  / 
[Renwnn------------------ END FIRSTP------------------------------- */ 


[ RRKRAKRKRKARK AKA RR KK AKA KK AKAKK KAKA RAK ARR AKA RAR REAR KRRKRKRKR AK 
* * 


* SECONDP SUBROUTINE x 


* * 
RARAKAKKKKRKKKKKRKKKRKRKKKRKRKEKKRKRKKKRKRRRKRRKKRRKRKRKRRRKRRKRKRRKKRRKRERKRERKKKRKRK 


/* second Heres routine, expansion is carried out in this routine */ 

/* First the specs for user progam are copied to PIEXP. The func* 

Pe # for nC een to be expanded is determined at the same time. 

Beetiext, the function's description is copied to SCR1. The user */ 

/* ee gram is searched for Saye call to function to be expanded, */ 
1 


+ 
— 


/* The code from SCR1 is substituted at this point. The expanded * / 
/* circuit is stored in SCR2. Finally P1EXP, SCR2 are appended ee 
/* along with the simulation specs from user program. x} 
secondp(expnum) . 
int expnum ; /* expnum = expand table index */ 
mee 1, J > 
count = 0 
/*--search for TYPES a on rog pXoSBY to PIEXP) ---------------- * / 
search( rl, wl, -1, 3, "45) = missing TYPES error */ 
| Reoreenn--- search if function to be saneades is a TYPE---------- * / 
ate cL.) /* search function to be expanded. Replace it*/ 
* with x's. Find its fnum and put in expt */ 
natch +6 ; /* 41 = missing { error * 
ind_token ; 
toknn == 4 ) /* '§' then break */ 
Bye cok ; 
pdelim(wl) ; /* print to P1LEXP */ 
if (toknn 1!= 8) /x Bunceion name, not an INTERNAL */ 
findprim( ) 


if (primid $= prim_count) 
Be tay ; 
while (1) /* search function's name in TYPE list */ 


getid(rl,43) ; /* 43 = missing _; error */ 
if (stremp(token_buf, deen fname) == 0) 


expt[expnum mid ; 
Boe ecechemune buf, "XX eK) ; 
pdelim(wl) ; 
if (delimiter == 2) /* if ';' then end of TYPE list */ 
Fea : 


/* end type search */ 
Bl ce /* INTERNALS */ 


search(rl, wl, 2, -1, 1,43);/* print internals as is */ 
/* 2 = delim ';' (error 43)%*/ 


} 
3 /* end TYPES */ 
/* aaa oon mn oo ee oo find Bae for the functtion-----<------------ * 
if (expt[expnum].fnum == -1)/* if no types,then find function #*/ 


strcpy(token_buf,exptf{expnum].fname) ; 
findprim() ; 
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if (primid >= primucoune> 
a Oriao) ; 

else ae 
expt[expnum].fnum = primid ; 


ae ww ewww ww wwe we cow nn wae ecessceseeee eee se eee eee * / 
,fclose(r1) ; 

ween en een eee e nee find function in lib------------- 2-2-2 - 2 -%/ 
ae = ls pena slibit r j= Vib rary ee, 

= Fopen "ds Serie ae /* scratch@file for euncuson +f, 
ane (1) /*k find the function to be expanded in the lib */ 
erage tht /* 44 = function not found in lib */ 
ind_token() ; 


if (toknn == 0) J MODULE, = / 


Getid( e223 a. 
if (stremp(token_ buf, primt[(expt[expnum].fnum)].nam2) == 0) 


rs : 
} 
[ Reece ccorccccccrrs= function foundeccrror errr eer cercerrreresercer= */ 
[ Keenrenen- store inputs, outputs On Stdcks—————— — — ee * / 
getid(r2,33) ; /* INPUTS */ 


Incounts— 0 <- 


while (1) 
Bees Ces Ae ; /* 43 = missing ; error */ 
andl token ; 
if (toknn == 2) /* OUTPUTS */ 
break ; 
else 


strcepy(instack[incount],token_buf) ; 
incount = incount + 1 ; 


outcount = 
ee (1) ae OUTPUTS */ 
‘ggtid(r2, at} ; /*x 45 = missing TYPES error */ 
ind_token ; 
if (toknn == 3) /* TYPES */ 
break ; 
else 


strcpy(outstack[outcount], token_buf) 
outcount = outcount fF 1 -; 


} 
Ws oe cen e rere ene TYPES should be tacked by function name--------- x / 
ar er eer cerccer- Save types on a typStack----e-- eee ener en ee nnn nn %/ 
“bie = 0; 
while (1) 
‘gg tia( ea, ar : /* 41 = missing { error */ 
ind_token ; 
if (toknn == 4) /* § x / 
break ; 
else 
if (toknn == 8) /* INTERNALS */ 
pee /*x internals are copied on to SCR1*/ 
search(r2,sl,2,-1,1,43); ik” so that th ae can be reproduced*/ 
'occurance' times at the end */ 


aes /* TYPE declarations a 
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pdelim(wl) ; ) function Eypes are tacked Beas the name a 
while (1) /* of the function to be e ed * / 
Wi They are saved on a stack so that it a 
can be determined in its desc. if a 
* type is used (will be tacked eRe ye 
getid(r2,43) ; 43 = missing ; error * 
strepy(typstack{ typeoune token_buf) ; 
typcount = typcoun 
for (i = 0; 1 < 5; i=i1+1) 


an (token_buf[i] == '\0') 
break ; 
fOr X 7 i; j <5; j=get+i 
Beal _buf{j ; =! a 
print expt fexpnun] Peete ; 


token_buf[5 ‘a 

token_buf[6] = Prac! expt[expnum]}.fnum] .nam2 
token_buf[7]}] = '\0' 

pdelim(wl) ; 

if (delimiter == 2) /* ; */f 


break ; 


3 


} 
merintrt(si," § \n") 
count =O; 





Sooo See eee eee eee Cee CCL LCL eee */ 
[Reenecenen---- (ae lemoe eestigtsce sc tO oGh k= —— oe a — a 
while (1) 
search(r2, sl, 4, 5, 1,46);/* 4 = '=! 5 = * / 
pn write structural description to ser file 7, 
* Types are tacked by function's name */ 
af peennnc= 5p) 
getid(r2, ,46) ;/* 46 = missing } error % / 
ar Pet [= 0) /* indicates type declared */ 
for (1 = 0; i< 5; i=i+1) 
if (token_buf[i] == '\0') - 
break ; 
Eor (3 = i: <5; j = j +1) 
token_buf 4 = ! oe 
token_buf[5[°= primt [expt fexpnun|. Ea epee ; 
token_buf[6} = primt{expt[expnum].fnum].nam2[1 
token _buf[7} = ‘Vol ; 
Beeeett ts: : 
search(r2, sl, 5, -l, 1,47); /* 5 = ')! */ 
/* outputs */ 
count = 0 ; 
fclose(wl) ; 
fclose(sl 
fclose(r2 
count = 0 
cexpand(expnum) ; /*pand the primitive whenever it occurs in ckt */ 
[Rewer e nner en nn nn nn--- END SECONDP=-----eee cnn wn nnn nce w nn eeeenee-- % / 
[ RRERKKKKKKAKRKKAKKKKAKKKRARRKAKARKKAKAKARARR RK AKAKAKKKKRAERARERERER 
“k * 
; PDELIM SUBROUTINE 


AAKKKKKKKKKKKKKKKK KKK KKK KK KKKKKKKKKKKKK KKK KKK RERAKKAKKK KARR / 
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/* prints delimiter on the file */ 


BILE Aaa 
ILE *wx ; 


 eprinté(ux, is Coheee 
count = count + 1 
switch(delimiter) 


case 8 : epee Ls 


case 7 ; éprint (wx, ean) 
count = ; 


break 
case 6 : cae Gro Cee 
break ; 

case 5: if Ati 


minte (yx 9) ee. 
Beaaie: 


else 


Prine can, wee hn or 
count=0; 
break; 


Gases 4): Eprinte (ux, c=!) 
break ; 

case 3: fprintf(wx," :") 
break ; 

case 2 : fprintf (wx, See: 
count = 0 ; 
break ; 

case l : fprintf(wx, ee eee 
break ; 


} 
1f (count >= 7) 
fprintf (wx, Vn) 


count = 0 ; 
i a asa eel END PDELIM--<<<<<] oe = = = oleae ae ole x / 
[ RERKRKRKKKKKK RAK KKK KKK KKK KKK KKK KKK AK KK KKK RK E AKA AA 
ke 
e FCOPY SUBROUTINE ‘i 
HH HHKHKKRARARKARRRERERERERER RR ARERAE EEE BOD aca 
/* copies one file in another */ 
FILE Arr, ey 
FIL 
a c ; 
while KS = getc(rr)) != EOF) 
putc(c,ww 
/* sin’ secs in co eat ec cs cay ncaa aaa esa ae ee END FCOPY--<<<22<22222222e222e2e22022----- */ 
[ RERRRKRKRKR IKK AK IKK KEKK KAR KAK RAK KAKA AKA AK AKER EKA KER RAK IK 
re oe 
5 COPY_NOEND SUBROUTINE : 
HAAR RARARRR RAIA ERR BRR BIKA HAAAA AAR AA RRA aaa 
/* copies one file in another without the EOF * / 


Sopy-Rgend/ ing outs) 
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ee pdone; 


pdone=0; 

prant select=1; 
etid(inf) ; /* read the token from file a 
ind —_token(); /*® see what it is 

while (pdone==0) /* quit when we see END wy 


switch (toknn) 


case 3: pdelim(outf); /* write the TYPES token */ 


eaten 33) i /* and get the next one %*/ 
ind_token( 
if (toknn== /* check for no TYPES * / 
printf(outf," ; \n"); /* no types, start new line */ 
break; 
case 6: print select=1; 
pdelim(outf); /* write the INITIALIZE token */ 
aoa nee 133) 5 /* check for sequence of * 
ind_token( /* EINTTIAL.; PRINTOUT: Bt 
if (toknn== /* is this PRINTOUT# x / 
prints (outs, "os \n'"'); /* yes, start new line */ 
brea 
case 9: print_select=0; 
pdelim(outf) ; /* write the DEFINE token ne 
Pea aa 33h5 /* check for sequence of * 
ind_token( * DEFINE:; INITIAL:; PRINTOUT: */ 
if eek) /* is this INITIAL# 7 
PrInceqoube, § ; \n'); I ce , print new line */ 
pdelim(outf); hen print INITIAL */ 
prac ane og 33); 
ind_token( 
fo tokan—— /* is this PRINTOUT# */ 
printf(outf," ; \n'"'); /* yes, print new line */ 
break; 
case 20: done=1 ; 
reak; 
default: pdelim(outf£) ; /*® write the token */ 
Find token) 33); /* and get the next one */ 
ind token( 


} /* ae Switch — * / 
e end while (toknn) */ 
print_select=0; 


[k-------------------- END COPY_NOEND----------------------------- */ 
[RRRERKRAKARKAKKRKRKKRAR AKER KK RK RKK RARER RK KARA AR AKRERERARK KR RRRKE 

x 
z REVERSE SUBROUTINE 
RAKKKKKKKAR RRA RRKR KKK KRER RRR ERR RARER KER ER ERR ERK RAR KRKAR ARERR / 
/* reverses a string * / 


reverse (s) 
oe s[] 


moe c, 1, j ; 
er el = 0, j = 6; i < j; itt, j--) 


[ RAKKRKKRKKARKKAKKKARKA KKK AKKKAKKAK KAKA AKRA RK RK RK ARK KKK KK AKKAKKKK KK AKA 
* 


+ 
_ ITOA SUBROUTINE 2 
KAARKKKAAKKAKKAK KAKA AK KKK KEK KAKKAK KEK AK KAKA KKK KEKE KER ARK K KARA | 

/* changes a integer value to ASCII code x / 

itoa(n, s) 

char Sil: 

int n ; 
int 1 ; 
=O 3s 
do 

slat+| = nj 100. 0, 
3} while ((n /= 10) > QO) ; 
reverse(s) ; 

[ Kewen nnn -------------- END ITOA--------------------------------- * / 

[ RRRKAAKAKAKAKK KK AKRKERK KKK KKK KAEK ERK EKER KRKKK EKER RAR KERERK RK KKK 
* * 
: FTYPE SUBROUTINE : 


KAAKKAKKKKKKKKKAKKKK KKK KK KKKKK KAKA KK KKK AAKAKKRKRK ARR KRKRKRKARKKKKRE | 


/* It finds if a type for the function name in the primitive see. 
/* description has been declared. ft = 1 indicates this * / 


ftype() 
Lhe ln: 
EGS 07; . 
for (1 = 0; i < typeount- 2°= 1+ @) 


if (stremp(token_buf, typstack[i]) == 0) 


£t = 1); 
break ; 
} 
} 
[kn=2------------------- END FTYPE--------------------------------- */ 
[ KRAKKRAAKAKAKAKKAKAKAKAAAKAK AK AK AKKAK AKA KK AKA AK ERK KKK KEKER EA 
« & 
: CEXPAND SUBROUTINE i. 
KAAKAKAKAAAA KKK KARARKKKKRAKKKAKKARAK AK RARAEKKEKARKARKERERARKEKAKERARA / 
/* expands a primitive for user's request */ 
cexpand(exnum) /* expand primitive's occurance */ 
int exnum ; /* exnum = expand table index * / 
Dri: Les 
s2 = Eee ene ; /* expanded desc */ 
rie f£Open( 4d: pit ae user prog | . 
occurance = 0 ; /* # of times call to function is made */ 
/* internals will be duplicated this # */ 
search(rl,r1,-1,4,0,41); /* find circuit description */ 
(x 4= [*/ 
hin me mowememcn owen meee cccccccesecse cesses e eee eee * / 
ay = 0 ; 
while (1) 
ckt_line(&outlcount, rl,outistack, &inlcount, inlstack, So ; 
if (found_end==1) /* find an ENDSWAP while in cktline#*/ 
ound_end=0; /* sure did, set up for the next one*/ 


fprintf(s2," ENDSWAP ; \n'"'); /* write the keyword onto SCR2 */ 
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be ee /* find a SWAPLIN while in cktline# */ 


ound_start=0; /* yes, get ready for the next one */ 
fprintf(s2,"" SWAPLIN ;\n"); /* write the keyword onto SCR2 */ 
if (skip == 1) 
break ; 


en mee ea. 2 ae ee oe ee = = oe ai ne on eee eee ee * / 
I le ae ae DEinteoalcwmom SUDSELCULe Ccode---<<=<<==-=-- a) 
if (stremp(savfunc, expt[{exnum].fname) == 0) 
if (outlcount != outcount) 
error (50) 


ae (inlcount != incount ) 
_error(49) ; 
if (err_count == 0) 


substitute() ; /* substitute the primitive's code */ 
occurance = occurance +l ; 


Riise /* print the code as is * / 
for (i = 0; i < outlcount ; i =i + 1) 


strcepy(token_buf, outlstack{i]) ; 

delimiter = 1 ; ae 

if (i == (outlcount-1$) 
delimiter = 4; /* = * / 

pdelim(s2) ; /* SCR2 */ 


strcpy(token_buf, savfunc) ; 
delimiter = 6 ; mR ey, 
pdelim(s2) ;. . 

for (1 = 0; i < inlcount; 1 = i+ 1) 


strcepy(token_buf, inlstack{i]) ; 
delimiter = 1 ; 
if (i == Sac 


delimiter = 5 ; * / 
page e2) ; 
count = 0 ; 
meranttis2," ;\n") ; 
3 /* end else */ 
fclose(s2) ; 

[*-------------------- END CEXPAND-------------------------------- */ 
[RRERRRKKARAKKAKAKRKKKAKAKKKERK AKA RKK KARRI KAKA ARAKI RRR RRR AKA 
* x 
: SUBSTITUTE SUBROUTINE 2 


RAKAKKA RAK ARK KK KKK AK AKKKAKKKA KKK KKK AKAKKAKKRAKKAKKAAKAKKAKKA AA AKAKAAKKRKK / 


/* copies function's code from sl to s2. Internals are tacked by */ 
* occurance number 


ae eG 

int i, skipl ; 

sl = fopen("d:serl", cra ey Se euiciaon'sedeschiption ~/ 
search(sl,s1,-l1, 4, 0,41) ; /* find description */ 

* = 'f' * 

[Ka----------------------- OUTPUTS------------------------------- * / 
skipl = 0 ; 

while (1) 

ckt_line(&out2count, sl, out2stack, &in2count, in2stack,&skipl) ; 


IS] 


if (skipl == 1) 
break ; 
[Ke wer ern nne no ----- write to SCR2 (S2)-----ccnneese enn en ene ---- % / 
iWanputs /culu ure: are replaced by Se ee names from in/outl*/ 
O; 1 < out2count; 1= 1 


nee Ons oc ane ; 
2£ (outorder {= ——<1) 


Sone e ee oe eae outistack[outorder]) ; 


else 
Ese Soa RE 
1f (inorder != -1 


5 CREDY token ae inlstack[inorder] ) 


else 
tack(occurance,out2stack[i] ) 


delimiter = 1 

i ois == (out2count - 1)) 
delimiter = 4 ; [x = */ 

pdelim(s2) ; 


strepy(token a savfunc) 
delimiter = [Rex] 
pdelim(s2) ; 

for (1 = 0; i < inZcount;: 1 = 1 +2) 


finorder ei ecenne : 
1f (inorder != -1 


Sooo ieee ee inlstack[inorder] ) 


else 
fet Ste ee Re” ; 
1f (outorder != -1l 


Fa eee Re ee outlstack[outorder] ) 


else 
tack(occurance,in2stack[i] ) 


delimiter = 1 

if (i == (in2count - x) 
delimiter = 5 ; /* * / 

pdelim(s2) ; 


FDGiIntaise a > 
count = 0 

/* end while * / 
fclose(sl) ; 


[Reeeeee------------- END SUBSTITUTE------------------------------ */ 
[ RRKAKAKARKKKAKAKKAKKKAKAAKKKAKKKAKKKKKKKKAAAKKKAKAKAAKKKKKKAAKKKKAAKKKAKAAARK 
* * 
- FOUTORDER SUBROUTINE 


RAAKAKAAK KKK KK KKK AKKKAK AKA KKAKKKKAKK KK AKA KKKAKKKAAKKAKRKAAKKAAAAKRKKARAE / 


foutorder(s) 
char s[] ; 


EU Eae ieee 
a (i’ = 0. i < outcount: i = 1,295 
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if (stremp(s, outstack[i]) == 0) 
break 


e 
? 


fs) (i >= outcount) 


outorder = -l ; 
ese . 
outorder = 1; 
[Kernen e------------- END FOUTORDER------------------------------- * / 
[RRRERRRRRRAAR ARERR ERE RK RRR RR RE RRR ERIK RRR RARER ERR REE 
# 
ce FINORDER SUBROUTINE : 


KKKRKKRKAKRKKK KK ARKKRKK ARK ARK KAAEK RRA RAK RARER KARR RKAE RAK RRA RRA RRKAKARRAERKR / 


finorder(s) 
= s{] ; 


int 1 ; 
for (i = 0; i < incount; i = i + 1) 


if (stremp(s, instack[i]) == 0) 


break ; 
if (i >= incount) 
inorder = -l1 ; 
else 
1norder =1; 
[Reece ccccecccrece-- END FINORDER@ eee een en ences erence cress escece- * / 
[RRRRKRRARRARRARR RAR RAK RARER RAR ARR RARER ARR AKER AR RAKRR ARR RARER 
*~ “e 
Fe CKT_LINE SUBROUTINE ; 


em 0 AA AARAAKRAAARAAARAAARRAAKRERARERER RR KAR REREREKARRERERER Ef 


/* This routine reads one line of circuit description and stores */ 
/* inputs, outputs in proper arrays * / 


ckt_line(oocount, rx, oostack, iicount, iistack, skip1) 
int .gocount, *iicount, *skipl ; 

FILE *rx ; 

ee oostack[][8], listack[][8] ; 


/* Outputs */ 


*Xoocount = 0 ; 
aS (1) /* put outputs on out stack */ 
"getia(ex, 46) a/* 46 = missing } error * / 
a token : 
if aoa /* did we find an ENDSWAP#*/ 
ound_end=1; /* yes, tell CEXPAND */ 
etid(rx, 46) aera ne x ee token * / 
ind_token( /* and see what it is as 
af — /* find a SWAPLIN too# x / 
ound_start=1; /* yes, tell CEXPAND x | 
etid(rx, 46); 
ind_token( 
1f (toknn == 5) /* } */ 
*&skipl = 1 ; 
break ; 


strcpy(oostack[*oocount], token_buf) ; 
*Xoocount = *oocount + 1 ; 
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if (delimiter == 4)  /* = */ 
break | 
} /* end while outputs */ 


if ((*skipl) != 1) 


Getid( rx, 35) ts function name */ 
Strcpy(savfunc, token eee 


*Aiicount = 0 ; 
while(1) /3 inputs */ 


getid(rx,47) ;  /* 47 =_missing ')!' error */ 
strepy(iistack[*iicount] token_buf) ; 


Ajicount = *iicount + 
if (delimiter == 5) 1k yak 
break ; 
} 
js -------------------- END CKT_LINE------------------------------- * / 
[RRARKRKERKAK ARK AK RKKKK ARK ARK KK AKA KK IK KKK KIRK IRIRERERERIR 
* 
5 SEARCH SUBROUTINE 
SoS IO II II OI REI RAI AAO 
/* searchs by a defined string */ 
search(xi, xo, delm, tokm, fg,ernum) 
FILE *xi, *x0 : 
ri delm, tokm, fg, ernum ; 
while (1) 
etid(xi, ernum) ; 
i¢ (£4 =2 1) 
pdelim(xo) ; 
a (delimite == 5) 
fprintf(xo, on) 
count —.0-- 
3 _ 
ee eee == delm) 
find “token() : 
if (toknn == tokm) 
break ; 
} 
[Keone rnnnnn----------- END SEARCH-------------------------------- * / 
[ RRRAKRKRKK RK RK RK AKA AKAIKE KKK KKEKEKK KKK RARE KIKI K KER ERE RE 
* 
A TACK SUBROUTINE a 


RAKKKAKKEKKKAKKKRKEKKAKKKKERKKAKKKKKRKKAAKRKKKAKKKKKKKKKKARKRKKK AAR EKKAE | 


pac Roce! lobuff) 
oc : 
char iobufe[s ; 


Ne ocligaean 
strepy (token Due: pb UE ; 
for (1 = 0; < a 1 = il 
te (token_buf[i] == '\0') 
break ; 
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token_buf 

token_buf [ 8 : 
reverse (token_ bu 
itoa(occ, token ee} ; 


oe (j = eal = < 7; cli = yer) 


[Benne n nnn 2-2-2 ------- END TACK---------------------------------- */ 
J BEAKARRKAKRKRKRRRERAKARRAK RAK RRR RR RARE RRA RREARK ARK AAERARARK 

* 
MULTI_MOD SUBROUTINE ‘ 


RRAKKKKAKARKKKKKRKARAKRARKARK RAK ARARREK EKA RAK AARRA RAK RAKKRKRKKAK 
/* This routine handles sub modules. All sub-modules are tacked a 
yeeco the library (STRUC) in the front. Also expand table is zi 
/* incremented for each sub-module. sy 
multi_mod() 


ina = open ("a :libl", wit) 


while (1 

ee a : /* 34 = missing END error */ 
ind_token . 

af (toknn == 20) /* END */ 
break ; 

if (toknn == 0) /* MODULE */ 
Berra ein g4): 
getid(r1,33) ; /* sub module name */ 


strepy (print [prim _count].nam2, token put) ; 
strcepy(expt[expcount]. fname, token_buf) 
expt lexpeount | -fnum = prim_ count ; 
pean count = prim_count + 1 ; 

count = expcount +1; 
péelin(1i1) ; 
search(rl lil, -1, 5, 1,46); /* 5 = } */ 


Be eee ne) 
co : 

copy ( GL y. = 

fclose(rl) ; 

fclose(1lil) 


[*------------------ END MULTI_MOD-------------------------------- */ 
[RRAAARAKAKKAARARAKKKKRRRAK KKK KER RARAKKAK KER RAK KKK RAK KARR RAK 
* * 
: FADVANCE SUBROUTINE ’ 
RARKKAKKRAK KARR KR RRRK RRR RRR AAR RRR ERR 
/* advances a number of s aces in the file and returns to the a 
/* beginning of the next line * / 


fadvance(tl1,numm) 
int numm ; 
Bole *tl ; 


filecount = filecount+ numm ; 
memctilecount > 22) 


filecount = 
Stl. " ay 


es 


[ RRKKKRRKRKKAKKRRRRKK AKA RK KKK AA RRRKRAKARKRKKKKKRRKKRKKRKKRKKKRKRKRKKK 
* 


* 
; HASHF SUBROUTINE ; 


RAKKKKKKKKKKK KKK KKK KK KKKKKKKRKKKKKKKKRKRKKKKKKARKKKKKKKKRAKERKKKEREE RK | 


hashf(s) /* finds hash value for strings */ 
char *s; 


int hashval 


for (hashval = O; *s != '\O! ;) ; 
hashval += *s++ ; /* convert from string to # */ 
test(&hashvalL) ; /* and test for collision */ 
hashtable[hashcount]=hashval; 
hashcount++; 
return (hashval) ; 
[keeno----------------- END HASHF--------------------------------- */ 
[ RRKRKRKRERKKIKIK KAKA RK RK KKK KAKI KIK KAIRIE RK RR KEK EKER AAR KEKE RAK 
A k 
i‘ TEST SUBROUTINE is 
RKAKKKK AKA KAKA RK AK KAKA RAK ARK AK RIK IK AKI IRAE IRAE KER ARR IRER | 
test (value) 
int *value; 
int 


ate 
for (1=0; i<hashcount; i++) 


i 


if — /* hashtable collision# */ 
Avalue)=(*value)+11; /* yes, add a prime numberem. 
oe ue); 7 /* and test again * 
} 
| Ren nnn----------------- END TEST--------------------------------- */ 
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APPENDIX B 
THE PRECOMP ROUTINES 


[RRKRRKRRKREK RRR KK ARK RK RRR KARR RR RRR RRR ARR RRA RAE RRA RRERR RR RKRARKK RK 
* 


Kx 
Precompilation Routines * 
s . for the compiler | . a 
x including: structural expansion handling < 
* __ USING Benes oS 
: to be used with the version 3.1 of the CADD program ‘ 
KARKKEKEK EAR ARKRKRARAR KERR KER ERER EKER ERE RERE RAR ARE RK REAR AR ARARAERR / 
mameiude " ic\stdio.h" /*<stdio.h> in DOS 3.x environment <*/ 
#define maxkey 29 /* maximum number of keywords a) 
#define maxprim 100 /* maximum number of primitives %*/ 
#define maxouts 32 /* maximum of 32 outputs per prim */ 
ee ------------ GEOBALS DECEAL a) LON Sama ane =o =~ === ======- */ 
extern int StEcR yi ; /* copies one string to another */ 
extern int stremp() ; (pee stGlnoeconpanlson a), 
extern int ape ; /* get next identifier * / 
extern int find_token() ; Wi returns the token number */ 


(keyword table index) 
/* the given function name/type */ 


extern int findprim() ; /* finds primitive library index*/ 
extern int pdelim() ; Us putts a file of keywords and */ 
ns okens, separated by delimiters*/ 


extern int fcopy() ; file copying routine 

extern int Ecey noend(); 98 /* copies evenyebang but END token, </ 
extern int ckt_Iine() ; /* scans one line of ckt desc. 

Smeern int search() ; /* search a delimiter or toknn */ 
extern int multi_mod(); 

extern int secondp(); 

extern int tack(); 


ER eee ne ok oo oo eee a oe eee ee eee eee * / 
[K---------------- DATA STRUCTURES-------------------------- * / 
struct prim_tab { x Primitive table : a 
char nam[8] ; [* pee table. a) 
char namz[8] ; /* EXTENDED primitive table 3) 
int numpar, outp ; /* mnumpar = no. of parameters */ 
int normld, fanout ; (= Sion the uneti on */ 
int technology, overld ; /* outp = # of outputs */ 
struct namepair { /* this holds system-generated */ 
char e_from[8]; /* expansion requests * 
char e_to[8]; 
struct swapname { /* each of these nodes will contain a module */ 
char sname[8]; i Seer G Ice UstNG Parameter List ~/ 
int used; /* this indicates whether used or not */ 
struct functable { /* each of these nodes will contain a 
char fnname[8]; /* a function and level for a library */ 
int level; /* VOHL module * 
struct exp_tab { /* expansion table */ 


char fname[8] ; 


lo7 


| Rann nnn nnn nn nn nn nn nn nn nn en +--+ += * / 
[Ko--------------STORAGE ALLOCATION------------------------ * / 
extern struct prim_tab primt{maxprim], *primptr ; 
extern struct swapname typelist[ma rim] 18] /*table of replacements*/ 
extern struct swapname Suen i igt 20)18];_ /* USING parameter storage *// 
extern struct namepair reqtable[maxprim] ; 
extern struct exp_tab expt(30]; 
extern char use rp: ceae 
extern int expcount; 
extern int sfound; 
extern Inte req count. /* number of system eee reqs” */ 
extern Mite ulnescoume: /* line index for swaplist 3 
int line_item; /* index within single line ny 
extern int swap_flag; /* indicates whether all of this*/ 
/* iS Necessar mol NOt a 
int expand_flag; /* indicates need for additional*/ 
. * expansion declarations a 
int found_start; /* indicates presence of SWAPLIN*/ 
int found_end; /* indicates Breese of ENDSWAP*/ 
extern int add_flag; /* set if cell is to be added to*/ 
. a * primitive library i. asi 
extern int delimiter, bb, skip ; /* delimiter = delimiter type * / 
. /* bb = buff[(80] index (line) x 
extern int toknn ; /* err count = error count. / 
extern int cellcount; /* # of MODULEs in user program */ 
extern int Boao /* controls printingpor councem=) 
extern int print_select; /* determines whether a ')' causes*/ 
_/* a linefeed or not (default=no)*/ 
extern int prim_count, primid ; * prim_count = # of primitives */ 
extern int Ssys_prims; . * number of system-defined prince 
extern int feaeubes Maa ae _ /*® used to_ describe the type cima 
/* descriptions available; * 
* -1 => erney 0 => block only */ 
/* 1_-> d:struc only 2 ->block & struc */ 
extern int append_table[maxprim]; /* keeps track of the functions*/ 
extern int eepene sade * we've added to the user program 
int modules_to_do; /* number of STRUC-only additions to do */ 
extern int expdone * marks completion of STRUC expansion*/ 


extern 
extern 
extern 
extern 
extern 
extern 
extern 


int no_compilation; /* used when ony making library additions*/ 
char token_buf[8], savbuf[8], buff[80] ; i; buff = 1 line */ 
char i Seceuinan ey te) ;  ® keyword table */ 
char instack[maxouts](8], outstack[maxouts] [8] ; 

int incount , outcount 

Int Counce: 


; /* for printing on the file */ 
char savfunc[8] ; 2 : 


int maxpid; 


extern 
extern 
extern 
extern 
extern 
extern 
extern 


[ RAKKARKKKKAARKRKKAAKA AK RKAKA AK RAKRKKAAAAKRKRKKAAARRKKAAAARKKKAA ARK AAA AKA KK 
* 


* 
* 


FILE *rl /* pointer to input data file * / 


/* pointer to STRUCT library * / 


/* pointer to expanded file P1lEXP */ 


"Tr 
ee) 
ES 
7] 
+ 
= 
2 


* 


COUNTCELLS subroutine ‘i 


KAKAAAKARARARARARARARARA KARA KARA ARK RAK ARAKAKARK KAR ARK AK AKRK ARK / 
See ey 


oe *look 


ile; 
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int start_looking; 

start_looking=0; 
etid(lookfile 33); 
ind_token(); 


af ((toknn>25) && (toknn<maxkey) ) /* first keyword an add ke yee) 
start_looking=1; Jo yes, stabietooking for By, 
/* a missing DEFINE. 
while (toknn!=5) /* take a look at the lst wy 
/* module.. aa 
1f (toknn==0) /* find a MODULE token? * / 
cellcountt++; /* yes, update count */ 
find token();" 33); 
ind_token( 
getid(looktite, oe /* read the next token a 
ind_token() /* should be a Ee a 
if meets) && (start_looking==1)) /* is it? if not. * / 
no_compilation=1 a this 1s a cell addition only.*/ 
Brintt (no achat lation this pass\n' 


De 

/* Roteratf this ws just a */ 

} Pe missing DEFINE, let Ausif*/ 
/k handle it. After all, he */ 

/* wrote this thin <gr in> * / 


while (toknn!=20) /* scan the rest o e ckt */ 
1f (toknn==0) /* find a MODULE token? a 
cellcountt+; /* yes, update count * / 
find-token(); 33); 
ind_token( 
} 
[ko-------------------- END COUNTCELLS----------------------------- */ 
[RRERRRERRARAKRARERERKK AERA KKK KARE RAERAEKK RRA AEKERARARKAKARKARAKE 
# 

: BUILD subroutine ‘i 
RAKAKAKARKARKARKK AKA KIOKK ARK EAA AK ARKAAARAAKKEKAKAR AAA ARAAAA RAD ADS AS 
build() /* build a VOHL file with no */ 

/* END keyword 
FILE *adds,*specs; /* modules added go here 
ant adfl pa ius current_primitive; /* used locally for each ee * / 
int i,j3,skipl,done; 
mnt found, divert; 
ear epuffert [8]; /* temporary string buffer */ 
oaFT : =o; 
done= 
Beet t= 0. 
maxpid=o ; /[* Sega primid encountered xf 
print_select=l; /* newline after | * / 
adds=fopen("d:newckts.vhl", "w!') ; 
specs= ceopen (id: specs" ,"w!') ; 
eta cS 
ind_token ( 
while Aue 
(toknn>25) && (toknn<maxkey) ) 
add_flag=1; 
adfl Tagat; | 
pdelim(adds ; /* save the keyword in addition file*/ 
find. tok: Po) 
ind_token(); 
WW eh (toKnn) 
case 0: divert=0; /*® save MODULE keyword * / 


pdelim(r2); 
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case 3: 


case 5: 


case 6: 


ane ace ==1) 


count--; 
delim(adds); /* and to the new ckt file * / 


Find tox: 33} 

ind token 

Baeae 2); /* save the TYPES k d * / 
elim(r save 2 eywor 

cf te ete a 


count--; 
ko /* and to the new ckt file * / 
while (1) 


ee 733 
ind_token( 
if SEU | | (toknn== )) 
/*® quit for INTERNA or { */ 
break; 


pdelim(r2); 
find _token(); /* find out what we just read */ 
findprim(); /* it might be a prim, so cheexma 


if (primid < prim_count) /*if this is a primitive*/ 


current_primitive=primid; 
/* next IDs will be of this type*/ 
if (primid>maxpid) 
maxpid=primid; 


else 
/* not a primitive, so add it */ 


whi Le (typeligt{current_primitive] [4]. .used==1 ) 


itt: ia ook for next free space*/ 
strcepy(type ist Curremeaemina sane Oks . sname 
to en buf}; 
typel ist [current ee used=1 
} while (1) */ 
ane welt 
count=0; /* if a '{', then no TYPES ay 
fprint£( ae! (ee /® so we need to save a '';! */ 
dete ge age=l 
pans (38s, to The 
eae /* write the '{' token */ 
f (adfla 2=1) 
paalanscaee 
pibaclih aE 
ind_token 


bre 
if reais /* if token is a '}" then. 
ian that's ne end of this i) 
eer Pao * module, so print '3}' and */ 
EOE in f(adds, es ae /* clear the addition flag*/ 


pdelim(r2 
Fina tok: 33), 

ind_token( 

brea 
ue aa /*®* print system expand reqs “*/ 
print. se ect=1: /* Bae linefeede Arter Ge */ 
divert=0; 

pdelin(r2) j /* print aati */ 
ane ae 

ind_token( 

if (toknn== 
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ee Nn De 


case 9: an select=0; /* no linefeed after ')' * / 
pdelim(r2); /* print DEFINE token */ 
goes TAP /* read the next token * / 
ind_token 
een esi /* anything to DEFINE? * | 
case 6: print_ Sec te 1; /* no, INITIAL found */ 
divert=0 
sereanet) No. \n'');/* start a new line */ 
uexpand . 
im(r2}; /* and print INITIAL */ 
geil, 33 ; 
ind_token( 


if eee § /* no INITIALized params */ 
prints (re, = \nl')- 


brea 
case 21: divert=0; /* cern wants EXPANDs * / 
Sous 7 "os \n'"); /*start a new line*/ 
/* ee ours first _though*/ 
eda, I now print user's * / 
Getid(rt 3 
ind_token( 
break; 
default: divert=1; ¢ DEFINE params present */ 
sprinte(r2," ; \n"); /* start new line * 
fprintf£(specs, "DEFINE: "); 
Beenie 
gears 
ind_token( 
break; 
break; . 
case 20: done=1; /* END token, so quit * | 
break; 
case 21: divert= 0; /* EXPAND * / 
pdelim(r2) ; 
Find tok: 33}: 
ind _ token 
break 
case 22: line_ i tem=0; [* USING: = here we go. eu) 


/* temporary file 
Ses sary "SWAPLIN ; \n''); Wi mark this ckt Linet/ 


swap_f pee we'll be doing swaps*/ 
expand_flag=1; /*and probably calling*/ 
found=0 ; 
do /* for expansions * / 
getid(rt, Sit /* get the parameter list */ 
ind_token 
if (toknn= =25) /* is this a NOEXP? * / 
ex GG RO /* don't need to call for*/ 
etid(rl,47); /* expansions * / 
else /* expand to this TYPE */ 


1f (found==0) 
or (1=0; i<=maxpid; i=i+1) 


ee wh need to find it in list*/ 
while (typelist[{i][j].used== 


ae Suet ecn but, 
typelist[i][j].sname)==0) /*a match?*/ 


Be CRY Ue »primt[i] .nam2);/*yes,save*/ 
ound= 
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break; /* and continue */ 


else 
j++; /* no, look at next TYPE */ 
ee end while typelist*/ 
if (found==1) 
break; 
/* end for */ 
3 /* ena ie found * / 
/* end else 
strcoy(avaplicc ee Coe vite sname, 
token_buf); /*one by one * / 
swaplist[line_count] [line_item] . ie 
line_itemt+; 
} while (dedimiter '=5); /* Stonmeorea Hy * / 
ckt_line(&outcount,rl, outstack, &incount, neem 


& kipl); 
for (i1=0; i<outcount-1; i++) /* write outputs*/ 
PDR interne. oe ,",eurstaek a): 
(adflaqe=1 . 
printf(adds," Js ,",outstack{i]); 
freee "' Js = " outstack[i]); 
f (adflaq-=l 
printf(adds," ]s = " rier iee 
Eprineecw2: mii eee /*write e function name*/ 
ate ee 
eee adds aiis(.. cy 
+ 


for (i=0; i<incount-1; i+ /* write the inputs*/ 


foe Ee! ee ' instack{i]); 
adfla agr=l . ; 
printf(adds," |s ,"jinstackiap. 


Spee rZ,"_|s ) 3:\n",instackiap. 


ie = 
. yee : ne ) -\n"") insitae ia. 
alee Sage _flag== /* need to call for expand? */ 
or (i=0; i<req_count; itt) /* yes, see if */ 
: a /* aaa did 


ane gp iuenp (reqtab le ace .e_from, eaVEE eS ae 

ak; £ already marked this*/ 
. 1% ane then ignore it */ 
if (i==req_count) 


strepy(reqtable[i].e_to,bufferl); 
strepy(reqtable[i]j.e_ _ from, savfunc) ; 
reqecounerr: 

oe _flag=0; 


Pema) 


fprinté(r2, ' ENDSWAP ; \n"'); 
line aSOunt ++; / increment swaplist aa 
Find (rl. 37h) /* then read next token*/ 
ind token 
rea 
default: RF divert= =0) 
delim ie 
nF (adriage= 
COune==— 
Stitea 


lse 
pdelim(specs); 
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cee Gate ie /* and read the next one * / 


ind_token( 
break; 
ie switch * / 
jy ile*/ 
ee hs 
pets ka (ads, SEN Dee \ ri") /* END the file * / 
ose 
Eprines (specs, ISENoe \n"): /* END the file * / 
eee sspecs 2s <a ells 
ft select=0 /* restore to initial state */ 
[Kenn nn nce nenenene----- END BUILD---------------------------------- * / 
[BRAKRRERARAEKRKRERRKREK RRR RRR KKK RRKREKRR RR KERR RERRRERERER ERK RK 
* 
a UEXPAND subroutine : 


RRs a ee AAA RAK AAA RAARAAARAALRAAAAAAY / 


/* This routine prints an stem-generated expansion requests ey 
/* onto the file r2 (OUTFILE) . * / 


uexpand( ) 
mat 1; 
for (1=0; i<req_count; i++) 
fprintf(r2,'' EXPAND: Js : Js ;\n",reqtable[i].e_from,reqtable[i].e_to); 
[kennn----------------- END UEXPAND-------------------------------- */ 
[RRRRAKRKAKKRERKKRERKRKKRKKRKRAKKK KKK KKK AK RKK KERRIER RK 

+ 
: STRUC_EXPAND subroutine * 


* 
KKKKKKAKKRKRKK AK KER KAKK ARK AIK KKK KER KERR KER RIK AKA KAR ARR RIKER 
struc_expand() 


int skip,passdown; 
modules. to do=celicount; 
giite (expdone==0) 


getid(rt, ,41 /* scan along until found { */ 
ind_token( 
gaite nt /* looking for { (indicates */ 
/* we're in the circuit proper) */ 
ane ayia /* scan along until found { */ 
ind_token 
ski920) (skip==0) /* repeat until we finda '}! */ 
ckt Be oe rl,outstack,&incount,instack, &skip); 
if (skip==1 
break; /* quit */ 
else 
strcepy(token_buf,savfunc) ; /* get the function name and*/ 
findprim() ; /* see if it is a primitive */ 
if (primid<prim_count) ES Vee) but _is it a valid one?*/ 


ys f not, let Ausif handle it*/ 
if (features[primid] [0]==1) yx STRUC- only description? */ 


passdown=primid; 

append passdown r2 /*add it to work file */ 
» 7k al * if features / 
} / ee eee */ 


ie7 e 
oer ile skip */ 
modules_to_do--; /* hey, finished one a 
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cellcount--; 
ae — ==0) 


printf(r2, VEND=) Nines 
fclose(rl 
oes eZ 
f (mo ules _to_do==0 ) 
expdone=1; 
else 
rl= Seed: -OUtfI Lee 
r2=fopen("d:infile'' yyy!) 
ECODV( Eu, 2); 
fclose(ri 
fclose(r2 


rl= =fopen( a: -infivel, ae 


He =fopen("d outfile", Wag lt 
copy _hoend(rl, Bae 
ose(rl 
ois fopen("d: sb gpaoly st Wiel yh. 


ai 
/[* 
I 
* 


/ 
Vk 


ee 


decrement the cell count a 
* cell count =0? * / 


yes, place the END on the * 
expanded file and close it*/ 


modulesTodo also = 0? a 
yes, then we're finished */ 


no, further expansion is “*/ 
required--make a new file */ 
the old OUTFILE becomes ay 
the new INFILE x / 


build the new OUTFILE a x / 
co By tene everything but the 
en 


countcells(r1); /* count the # of cells in */ 
fclose(rl); /* this new input file */ 
rl= =fopen(''d: sinfile","r''); /* now that we've aa the files*/ 
struc_expand(); /* straight, expand recursively*/ 
} /* else */ 
} 
[kee eee---------------- END STRUC_EXPAND--------------------------- */ 
[RRARKKRAKRKAKAKARKIRK KARE RAK RK IKK RAK ARAR AKAIKE KKK KKK KKK ERE 
x 
2 APPEND subroutine ; 


AKKKAERERKRERREREREKRKRKERRERERRRER ERA RRAKE RERERERREA RAAB ARERARNAD Ty, 


append(ptarget ,writefile) 
int ptarget; 
FILE *writefile; 


int aindex,done; 
FILE klookfile; 

done=0; 

aindex=0 

Reants Bees Le 


te epeGnce table [aindex 
break; 
alndext+; 


} while (aindex<= =append_index) ; 


HE Ea index 


oe 


do 


getid(lookfile, ,33)3 
indprim( 

fing st 

if (toknn== j 


Fidos ae ,33 
Te 


ae ics _count) && (primid==ptarget) ) 


one=l 


fprintf(writefile, "MODULE 


pdelim(writefile 

eat agar 2 fe 
ind_token( 

while (eee) 


==ptarget) 
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/*® put linefeeds after ')! */ 


i a eae added this one?*/ 
* yes ip i 


/* no, append this prim */ 


/* no, wrong primitive*/ 


/* found a MODULE? */ 
/* yes, is it the right one?*/ 
/* get the primitive name*/ 


| > Yyesr cule iy 


* Hic 
* , 


pdelim(writefile) ; . 
Getid(lookfile, 33); /*write everything down to TYPES*/ 
ind_token( 
pde Detect | /* write the TYPES token */ 
etid(lookfile ,33); 
ind_token() ; 


if ilten /* no TYPES ? */ 
Brints (write rile, Wz ya /* start new line */ 
eerste writefile, "! \n" Wi Pane the § * / 
get ad RIGntEEe : hen grab token*/ 
ind_token( 
while os, /* copy down to '3! * / 
pdelim(writefile) ; /* a the token*/ 
etid(lookfile, 33); /* and get the next one */ 
ind_token(); 
pdelim(writefile) ; /*write the ‘3! */ 


append_ table [append_ ee Be /*update the table a 
modules_to_dot+t; hate recursion */ 
append_index++; 


3 
3} while eee =0); 
mo rat e); 


man t select+0; /* restore to previous state */ 
* append */ . 
[Kewnn------5---------- END APPEND--------------------------------- */ 
[RRAKRARKAKAK AKA AK AKAIKE RAIA KIKI KIB KK KIRK RIKKI RRR RAR AI 
x 
E SWAP subroutine : 


ee 0 AAAARARKAKAAARARAAAAK RAARRRRARRK RARER RE RARE RRR ARRARERERE | 


/* This routine is invoked after expansion and suse before*/ 

/* compilation. If there are any requests for function */ 

/* name substitution with USING, they will be handled x / 

/* here. The affected lines are delimited by SWAPLIN and */ 

Wi BeAr keywords which will be removed prior to compil- 
ation 


swap () 
faiteskipl, found, i, j; 


int erform, swa DS; 
r1= ee sll", Hylt) /* raw file is Pll */ 
wl=fopen('"'d outfile", Nyt) /* processed file goes here */ 
pees tl ,41 
ind_token( 
while Be ing) 
pdelim(w1) ; * copy down to the '{!' */ 
pee card, dt f es 
ind_token 
pdeiim(w1) ; /* write the '{' x / 
swaps = -l; 
found_ start= =0 ; 
found_ erd=0 
eye 
while (1) 
ckt_line(&outcount,rl,outstack,&incount,instack,&skip1); 
af (oe i==1) /* quit when we see a ‘3! %/ 
ee iesand en ==1) /* find an ENDSWAP while getting ckt line*/ 
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{ 
perform=0; /* no need to check for swaps */ 


found_end=0; /* set up for the next ENDSWAP key */ 
if (found_start==1) /* find a SWAPLIN keyword? * / 

erform=1; /* need to start looking for swaps * / 

ound_start=0; /* set up for next SWAPLIN key 

swapst+t+; /* select the next line of swaplist */ 
if (perform==1) /* check for swaps on this ckt line? */ 


etrepy | token_ buf,savfunc); /*move function name to token buffer*/ 
findprim and see what rhe. Lees 

i=0; /* initialize USING param selector */ 
if aa -used==1) /* this TYPE is user-defined?*/ 


initialize to "not fondle 


ound= 
1) /*match USING param list.*/ 


/* yes 
while (swaplist[swaps] [i]. used== 


j=0 e 
while (typelist[primid][j].used==1) /*against TYPE list*/ 


is SE GEEE MSE swaps jti]s .snam 
ypelist[primid][j]. Saamneys =0)/*a match?*/ 


{ 
strepy(savfunc,t efit lp yee sname) ; /*yes , swap*/ 
he te oy 


found=1; l outside world we're one 
break; /* and quit 
else 
jtt; ey no, look at next TYPE */ 
/* while typelist*/ 
Tee founds =1) /* are we done? */ 
: break; /* yes, look for next substitution */ 
else 
itt; /* no, try next USING parameter */ 
} /* “while swaplist */ 
if (found==0) 


printf£("couldn't find the module you wanted to replace ]s\n", 


savfunc 
rintf("compilation continues\n\n") ; 


pe Beers * / 
O 


} ve Lf pentorm ~/ 

for (i=0; i<outcount~ Sis i++) /* write outputs*/ 
fprintf(wl So ee) 

Seine a | sieeeacn ie ); 

fprints (wl, Vrea, savfunc) ; /* write the function name */ 

for (1i=0; 1<incount-1; i++) /* write the inputs*/ 


EpreIMen wie. 128 " instack t1}3 
jee one i is oe instack[1 ‘; 
ee while not skip */ 

pdelim(wl); /* write the '}3! * / 
fcopy(rl, wh) ; /* then copy rest of file*/ 
secerel ay 
fclose(wl 
rl=fopen a: Out pie: ey). 
r2=fopen(''d:; ar 0 Wypit) ; 
wl= Eten dsp unl) 
Print sselece—i- 

etid(rl, ae 

ind _token/( 
while (toknn!=5) 


poeta eet aa /* copy circuit body */ 


#indatoké gi 
ind_token( 
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pdelim(w1l) ; 
peant select=0; 
etid(r2, ae 
ind _token( 
if (toknn==20) 
printf (wl, "DEFINE: ;\n!"'); 
else 


while (toknn!=20) 


delim(wl /* copy the DEFINEd parameters */ 
anak 34), oe 
ind _token( 


am (toknn!=6) /* look for the INITIAL: */ 


gptie( et 3 }: 


pes ee 
close(r 
fcopy(rl, wl); /* copy the eee file */ 
fclose(rl /* back to pli * / 
fclose(wl 


[ RRRRRRRKARKAKKKKAKKAKKAKKAKKKK RR RRR RAR KKK KKKK KK RRR RR RRR KAKA AKA 

* 
; CHECK_DEEPER subroutine is 
RARRKK KKK KKK KKK KK KKK KEKE KK KK KK KKK KEK KKK ERK RE KERR RRR ERK / 


check_deeper(fnam, targetpid, targetname) 
char f Enamt) ; 

int target fa; 

char targetname[]; 


FILE *lib; 

int findex,skip; 

ioeeancnt, outcnt, 1, intable 

char instk[maxouts][{8], ostk{maxouts] [8] . 
struct functable ftable ¢{maxpeim) ; 

getia( Lab 28); asec (pil). 


eet acl iD 75 
ind token( 
while (1) 
if (toknn==0) /* find a MODULE? */ 
etid(lib,41); /* yes, is it the right one? * 
zf strcemp(fnam, token Bates e f 
aot (toknn!=4) /* yes, read down to circuit body */ 
pease, Ah) 
ind_token() 
ne 
gala 44) ; 
ind_token(); 
Findex=0 
are cd) 
ckt_line(&outcnt,lib,ostk,&incent, instk,&skip) ; 
if (skip==1 
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break; 
strepy(ftable[findex ea ,savfunc) ; 
ee! ro _buf,savfunc 
find eee 
ftab e[findex] . level= features [print 
findext+; 


} 
fclose(lib); 
for (i=0; i<findex; i++) 


Sree eae ae &intable, ftable):; /* this one in eapens table? */ 
(ftable[i]. level > ‘features|targetpid] [1]) && (intable==0) ) 


S RECOUNTED LeAPCOABEIE .fname,ftable[i].fnname); /*add it to table*/ 
expcoun 

eHeck _deeper(ftable[i].fnname, targetpid, targetname) ; 

else 


ee eee »level= Pepi eT rece Ee ede 5e& 
SE eee fnname targe name )== 


f function name what we're looking ie * / 
peu /* yes, found at least one occurrance */ 
} 
} 
[Keown ren eer ene nnn n--e-- END CHECK_DEEPER@-9re eres nner nen nsernn--- * / 
[ RRRKKARKAKKKKRREKKRKKK KKK KKK KKK KKK KKK KK KAKA KKK KKK ERR 
% 
a CHECKTABLE subroutine . 


RRAKRKRKKKKKKKKK KKK KKK KKK KERR RERR RR RER ERR ERERRRER RRR RKK ERE / 
Se ee eee result, table) 

int index,*resul 

struct functable Peamten 


int i; 
kresult=0; /*® initialize to "not found" *%7/ 
for (i=0; i<expcount; i++) 


cise a 


result=1; 

break; 

} 
} 
| Ke wee nc ce eee eree------ END CHECKTABLE--cecesereesrssrrrrrrrssscs-- x / 
[ RRRKKKKAKAKKKAKKKRKKAKK RAK RK ARK KKK RA KKKKKEKKKKKRKK RK KARE RAKAKRR AA 
= « 
PERFORM_EXPANSION subroutine 5 


RRRRRRKRRKKKKKKKKKK KKK RR RRR RRR RRR RRERERERER ERR RAK RE RIR / 
erform_expansion() 


extetn int occurance; 

int 1,k,edone,end; 

for (k = 0; k < expcount; k =k +1) MW each expansion request*/ 
f * handled one at a time */ 
el pene ee spurt) 


wl fopen(''d: :plexp", iwi) :/* declaration part of expanded*/ 
* user program 
ee ; /* second pass - expansion */ 
felose( ri /* expanded desc. is in SCR2  */ 
/* expanded declaration inPLEXP*/ 
Ls So 5 eee opy PLEXP to temprmn-nnnnrennn nnn nn nn nnn Zi 
= fopen('d: cenene wit); 
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ri = iene :plexp", sat) 
fcopy(r ; 
£close(r1) ; 


a py 1 internals Ge funcu Onmeomo lew Een mEacking=--—*/ 
sl = fo Acar cept oe ae) J £0unction! ee decscription * 
ee (i) /*® read internals and copy to d:temp with tacking */ 

getid(st, ate /* 41 = missing { error */ 

ind_token : 
if igs maid) = ey 
if (toknn != 8) /* INTERNAL */ 
end = 0 ; 


for (i = 0; i < occurance; i = i + 1) 


aaa token but) 
fimiter == by’ [me ay) 


end 
Le (a, + "h) != occurance) 
elimiter = 1 ; 


ae aes ; 


) 
soaieues =2; 


else 
pdelim(t1l) 


pect ( tt, Ae wials) er 

feesess oe nd SCR2 to d:t d back to P1ll--%*/ 
eoceen------ ° emp and co ack to ae 

s2 = fo a ie eeu en =: z ae 

Ecopy(s2, tl) 

gprint#(t1,' {\ nM) ; 

close (ti 

fclose(tl) ; 

tl = fopen( i temp", rey) 

es fee en i pl hgh) 
co . 

Eeicce ti) : 

fclose(wl) ; 

3. «/* end for * 


/* end while */ 


if (expcount == 0 


print£(" >>>_No expansion request \n''); 
else /* tack last part (simulation control specs) to Pll */ 


rl=fopen("d:p11", ee) 
tl = ee temp!, twit) 
fcopy(ri,t 
felose(ri); 
rl = open) yeeros "e") 2/* user program */ 
getid(ri, 3 ; 
ind _token(); 
aie (toknni=5) 


pcb} 


aeere=0. 
getid(rl, 39} 3 /* get next token after } */ 
ind_token 
while (1) 
switch(toknn) 


case 0: edone=1; /* MODULE */ 
break; 
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case 6: print_select=1; 
pdelim(t1); 
Seema 34 
ind_token( 
af cones} ? \nt') 
rin > VAs 
peeaie 
case 9: printw select= 0; 
pdelim(t1); 
Sees +e 
ind_token 
lets ees 


eee We Nye 
pdelim(tl 
getid(rt, 134 
ind_token/( 
if (toknn== 
printf(ti," Nn 


break; 
case 20: edone=1; /* END */ 
break; 
case 21: tetas , 34 /*® EXPAND */ 
etid(rl1 ,34 
and ee 


bre 
default: SaenEGen) 
Find tok: , 
ind_token 


break; 
} /* sue eeney 
if codon ear 


wi while */ 
fclose(tl) 
tl = seed temp", ee 
wl = fopen("d:p1l1", wit) 
fcopy(tl,wl) ; 
felose (ti) 
fclose(wl) ; 
} 
[*------------------ END PERFORM_EXPANSION-------------------- */ 
[ RRRKKRKRKRKAKARAKARKRKRRKRKKRAKRKRKKRKKK ARK RAK RRA RARER 
* x 
= ADD_LIB subroutine : 


KRKKKKKKRRKKARKRER KKK KARR RRR K KERR RRR RERERRRERERARKREREREE 
add_1ib() 


Int 1,1cnt,ocne,done- 

Lat skip, maxlevel; 

done=0; 

Prant. select=1; 

rl= pet ae gnewckts. Vi ele 

Find token /k find out which addition to do */ 
ind_token(); 


icnt=0; 
ocnt=0; 
maxlevel=0; 
switch (toknn) 


case 20: sence 1; /* found the END token */ 
case 26: print ("ADDCELL not installed yet. wma 
reak 
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case 27: printf("Performing a structure-only addition for.. "); 
r2= Fopenta: temp", Heglt) . 


r3=fopen("d struc!', ie ; 

ECODY( ES CZ )e 

fclose(r3) ; 

getrd(ni., 33); 

pdelim(r2) ; /*® write MODULE token */ 

getid(ri 33); /® get the module name */ 
eee janes per ims ist .nam2,token_buf) ; 

Bet eee oken_bu 

pdelim 

getidirl, 33); /* get INPUTS keyword */ 

pdelim(r2) ; ; 

cere a /*®* get first input name */ 
ind_token( 

while (toknn! =2) /* stop when find OUTPUTS */ 

icnt++; /* count and write inputs */ 


pdelim(r2) ; 
findstoké 33} 
ind_token 


prime eye prins]. snumpar=icnt 


delim ]R! write OUTPUTS keyword */ 
getid(ed 3) 
ind_token( /* get first output */ 
while (toknn!=3) /* stop when find TYPES */ 
ocntt++t: /* count and write outputs */ 
pdelim(r2) ; 
Hind. tok: 33} 
ind_token 
eee live Be inst oy Ba Tocnt; 
Pea fures|sys_prims] | j=1 
pdelim(r2) yx write the TYPES token */ 
Findstoké sie /® get the next token * / 
ind_token 
if (toknn== ‘ /* this will happen if no */ 
/* TYPES are declared x / 
foruntfir2," ; \n"); /* puts TYPES: ; into file */ 
Paneer (er aera) uts > into file 
Ra cane /* eink the ft ok/ 
else 
while (toknn!=4) 
/*® write all the TYPES */ 
Dea ee 
eee 23 
ind_token 
delim(r2); /* then write the '{' */ 
Sees 
while (1) /* get the rest of the Ga acus ery) 
Ckt Line (&outcount, rl ,outstack, &incount,instack,&skip) ; 
if (skip= 
break; 
for (1i=0; i<outcount~ 1; i++) /* write outputs*/ 
EDEN Gae eee. aa ; 
Porintet re. nis = 0 joutstack {} 
PPR Iner ns ales, say Lune): e the function name*/ 


or (1i=0; i<incount- 1 ; itt 
EpRhanime re eh pans Gace el 

stropy (tok: 2 1 s\n", instack 
pac token_buf,savfunc) ; 


aioe 
i] )3 
writ 
*k write the inputs*/ 
i] 
fi}; 
W 


ndprim(); /*see what func name is*/ 
if (features [primid] [1] > eT) /*if higher level*/ 
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maxlevel= features [primid] [1 le: 
/*then save higher level*/ 


Eprints (2, " 3 \n"); /* write the closing brace */ 

ose(r2 

features (ss_prims] [1]=maxlevel+1, /*thise prim see level*/ 

Sye PD ea * higher than highest subckt* / 
en(''d: :temp", Wy). 


if (r2==NULL) 
printf ("Temp file open failed\n"); 

r3= FOR eu CS d: eee sr in. ny 
EG 

Soi ee nc cene file open fas ee eee 
fCOpy (eZ, ceed [* Cony new file back to a 
fclose(r2 /* st */ 
fclose(r3 
printf Nyriting PRIMITIV. oo ie 
te (eae NuEt Fimiciv.dat's 
ieee (cr 

printf("Primitive file open failed\n"); 
fpr nGee o"Jd \n".sys_prims) ; 

for (i=0; i<sys_prims; itt) 


phintt (rae o \s id a Fahey ns 
primt ae namzZ, prime aie ee i 
primt[i].outp, Featuree aul ],features[{i][1]); 


fclose(r4); 
Fina toké aie 
ind_token 


eak; 
case 28: print ("ADDBLOCK not installed yet....\n"); 


switch */ 
an te (done==0) ; 
abe select=0; 
V/sada dlib*/ 


WA 


APPENDIX C 
THE TIMING-WHEEL SIMULATOR PROGRAM 


[REKRKRKKRKAKRKRKRKRKRKRRKARK RK RERERERRREKRERERAERRR RRR RRERKRRRERERKKRK 


+ 


Timing Wheel Program 
Ot eelle ae 
Multilevel Logic Simulator 


* 
oS k 
k k 
k * 
* ae Bec GotOn so WZ) neo” s 
x Original Version by Ausif Mahmood at WSU for UNIX VAX Z 
* eeeecomuter versions and bug fixes by Scott Kelly at NPS * 
x Adapted * 
cS x 
A # 


Lopes de Albuquerque at NPS. Use with CADD version 3.1. 
KARAKAKAKKKAKAKR ARK AK RAK KAKA KEK KEK KKK AKRKARK RAK ARKRKARAKAKARAKKRE | 


o the version 3.1 of CADD program by Julio Cesar 


int _mlen = 250 ; 
rat mem (2501 ; . 
#include "c:\lc\stdio.h" 


* 


This is the timing wheel program. First it initializes the circuit 
iicer-connections in terms of descriptors (descriptor interconnec- 
etons are paven in a file "p2a"). The circuit is then simulated 
@eeerding to the input data given in a file. Event directed simula- 
tion is used for maximum time efficiency -Ulrich's algorithm. 
Simulation results are directed to a file. * 


#define inputs 2 (peeeetnpuveeDeG descriptor allowed */ 
#define maxprim 100 /* maximum number of primitives Zs 
#define maxdescrpt 250 /* maximum number of descriptors ai 
#define maxs /* symbol table for printing - 

#define mdelay 100 /* maximum possible delay s/ 

#define mdepth 250 /* concurrent actions eal 

#define maxmat 400 x delay matrix units ze 

#define maxinput 100 /* max number of inputs ay 

#define maxtw 400 x timing wheel data structure ae 

#define maxout 32 /* maximum number of outputs per prim*/ 

Semuct matrix { (* delay matrix for a primitive ZS), 

int rdelayO, rdelayl, fdelayO, fdelayl ; 
struct matrix *matptr ; 
[Bono nono one enone nnn nnn nnn nnn e eee / 
(ase la ad aaa RECORD ORGANIZATION FOR A DESCRIPTOR------------- cs) 
struct descrpt 

int (“pfunc)() ; / eee rucers polmter to the function ~/ 
/* i.e. code for the primitive * 

int param[7] ; /X parameters for the function */ 

/* param[0O] = inputl value a) 

/* param(1}] = input2 value * / 

/* param[2] = risel delay | 

/* param{3] = falll delay als 

/* param[(4] = rise2 delay x / 

/* param[5] = fall2 delay * / 

/* param[6}] = MODE ( 0 = normal ) * / 

ie = uncertain if low e/) 

/% 2 = uncertain if high */ 

Lc , 3 = stuck-at-0 faul x 

is ( 4 = stuck-at-1 fault ay 

struct matrix *mptr ; /* mptr is pointer to delay matrix * / 


struct descrpt *header ; /* header is a pointer to a descriptor*/ 


lie 


struct descrpt “righegmee, ~ 72 Behe pointers per descriptor xf 
struct descrpt *rightl ; /* block. * 


int hevalue |: /* field indicator for header po inee mms) 
int r_value[inputs] ; /* field indicators for right pointers*/ 
int present_oOutoucem, x present OUEpUE Of 4 prammiave x 
struct descrpt *ext_ptr ;/* extension pointer for multi- */ 
* descriptor primitives. * 
int parent ; /* parent descriptor number ey 
[Bannan nnn anne nnn n nnn nana nnn nn nnn a nnn n nnn nnn nnn nen nnn nee */ 
[Rannnnn--------------- TIMING WHEEL STRUCTURES------------------- */ 
struct newstack { * new_values for multi-output - 
int newvalue ; /* functions attached to timing wheel */ 
struct newstack *newptr; 
struct time_stack * timing_wheel structure * 
struct descrpt *dptr ; /* dptr = pointer to the descriptor * 
int newval, sfla < 


gi newval= newvalue, sflag= scheduling*/ 
struct newstack *nptr ; /* flag, nptr = pointer to newstack */ 
struct time_stack “tptr ; 


[holanwnnceneencencseneeceecsese / 
FILE *rp ; /* Read pointer to input data file */ 
FILE *wp ; /* Write pointer to output data file */ 

eee SYMBOL TABLE RECORD STRUCTURE------------------ x / 
struct symb_tab { 

char name[8]_ ; /* name of the line * 

int index /* index = # of the associated desc. */ 

Pa y 

[Re nwnnnnnnn------------- GLOBAL PARAMETERS---------~--------------- * 


/ 
struct descrpt desc[maxdescrpt]; /* STORAGE FOR STRUCTURES */ 
struct time_stack tstack[maxtw] ; a. 
struct newstack nstack[mdepth] ; /* timing wheel structures */ 
struct matrix matx[maxmat] ; 
struct symb_tab sym{maxsymb | ; 
struct descrpt *P r, *parent_ptr ; 


struct newstack *nwptr, “fret, cEore gWljene | 5 

struct time_stack pene inde eevee egint[mdelay], *freft ; 

struct time_stack *savt, *fwdt, *tempt ; 

int num_outs ; | . /* # of outputs for a function */ 
ine CIMmeye sav_tine, Simecine o a 

int sav_write ; /* write flag for printing output names*/ 
int f_out[maxout] ; /*® outputs returned by each function “%*/ 


int ff_out[maxout 
int del [maxout] elay : 
int timing_wheel, de mdelay] ; 
eee _wheel, d : h{mdelay] 
/* depth[{] “indicates the number of concurrent actions in 1 slot */ 
int num_input, inpt[maxinput] , inptc[maxinput] ; 
int hashta ie{ 1004 ; * simple hashtable for variable nancy 


int hashcount; /* number of items in hashtable 
/* num_input = number of inputs in the input data file */ 
/* inet (t = array holding values of inputs | ey) 
/* inptc[]= array holding hash value of inputs x / 


int num_print , out_interval ; 

char tokenbuff[8] ; 

int endinputname ; 
/* num_print = number of lines to be printed out. . a 
/* out_interval=interval after which each output is to be printed*/ 
int (*pnfn[maxprim])() ; /* pointer to primitive functions */ 

Ine Pnenc |; 

int D() ; 

int OR() ; 

int INVERT() ; 
#include "c:\simd\ftype" 

int fmode() ; /* mode behavior simulation */ 
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int fdel_ins() ; /* finds delays applicable to a_change*/ 
int insert ; /* insert the desc. in proper slot x / 
int indata ; /* input data retrieval for descs. % / 
int read_input() ; 

int write output () ; 

ant hashf() ; 

tae test(); 

int getname() ; . 

int Ecopy() ; /* file copying routine x / 


[RRKKKRRRRRKKRRRRAKRKR RAK RR RAKKKR RRR KKK RR RK RRR KKK RRR KK RRR KKK 
* * 


P MAIN PROGRAM rs 
KARKKRKARKRREKRKRKRERRKRK RARER ERE RRR RIERA AK RA ARERR | 
main(argce,argv) 


ime argc ; 
char *argv[] ; 


ioe 1, }, k, £x, field_no, duminp[(32] ; 
ant flag, sav_value , savh; 

int sav_depth, endread, numl, num2, num3, numé4 ; 
int filecount ; 
FILE *wq ; ea ; 
Paice “ti ; /* pointer to initialization file Z 
FILE *tm ; pointer to modif. delay file sil 
Bite *tc ; /* pointer to descriptor file nS) 
fee, “td ; /* pointer to std. delay file i) 
FILE *tp ; x pointer to printout file % / 
Emmet descrpt “sav_ptr, *prev_ptr ; 

struct matrix *ptrm ; 

Shar Z ; 

[Kee cee cece scccrscsssscsses- BEG Neco secon ses cere esse essere eeeees= * / 


— ~, 
> S 


hashcount=0 ; 
for (i=0; 1<100; i++) 
hashtable(i] = -1; . . 
rp = See ee ; [x is the input data file x / 
pnfn|0 read_input ; 
pnfn{1 AND ; 
pnfn|{ 2 OR ; 


pnfn[5 INVERT ; 
eo 
n! : 


#include ''c 
mamcr¢'! \ 
Beintt(" Nee); 
ponte ( | MULTI-SIM version 1.0 -Nov. 1, 1984 |\n"); 
tS ee Neda la 
enter (" \n"'); 


Poantt(" Loading Compiler Data...\n"); 
printf avn); 
a---------------------- INITIALIZE DELAY MATRIX----------------- x / 
a (i = 0; i < maxmat; i = i + 1) 
matx|1|].rdelayO = -1 ; 
matx|1}.fdelayO = -1 ; 
matx!i}.rdelayl = -1 ; 
matx|1}.fdelayl = -1 ; 
matx[1|.matptr = NULL ; 
tee eae ee aaa oo a ao ooo nea wn oon no-one * / 
[Ka wnna---------------- INITIALIZE DESCRIPTORS-------------------- */ 
for (i = 0; i < maxdescrpt ; i=i+1l1 ) 
Boies = 2; 3 < 6; tue Le) coum 
desc(i].param(j] = -1 ; _ /*® initialize parameters to -1*/ 
ZOY a ec noucs + j= 3 
desc[il] Eee = 0; 
Sect y aan = 2; 
desc[i].param[1} = 2 ; /* initialize inputs to 2's */ 


is 


A, 

@ 

n 

a 
BBB BP 


Reader = ; /* normal mode of operation “%*/ 
-header = 5d esc[i]) 3 

h_value = j 
parent = i : 
~present_output = 2 ; /* 2 stands for don't care “*/ 
-ext_ptr = NULL ; 
emptr = NULL ; 


a */ 


SO eae = 0; 
ds, ; 
while(1) 


etname() 
impel | 


i. 


ts 
ts 
ts 
ts 


= hashf(tokenbuff) ; 


(andinpitnene == 1) 
reak ; 


eet de a 
senwmm=TNITIARIZE (ILI 
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( i = 0; i < mdelay ; 


Qu 

i= 

Ss 

-¢ct+ 
+H - 

fH 

il 

= 

eG 

tc 

Bil 


i=z=i+t+l) 
a 
c 


Zune 
(EStackbit! |}. 
LL ; 


oa 


tack[1i].newval 
tack{1].sflag 
Cacia) Pi. Coen 
tack[i].nptr 


ZR i tl 
eS 


----STORAGE POOL FOR NSTACK(future multi-output values)----- a 


= mdepth Solan 


or 
ns 


fret = & 


wq = fopen("D: 


(i= 0; i< j; 
Bea enewptr 


; i 
nstack[0]) ; 


= j i 
iastack( +1j)]) ; 
fref points to the first free nstack ; 


filecount = 0 ; 

wq = fopen(! 'd:simdata" ,"w''); 

tm = fopen 'd:mod£" ,"r' Oy 

i = fopentd: titi 7 

Be fopen\dzdesef re): 
Open « Gspome. .  b. 


: fopen('"'d:delf", men}? 
ean EG) 2 
3 


fcopy(td,wq 
fcopy(tm,wq 
fcopy(ti,wgq 
fcopy(tp,wgq 
Fclose(wq 
fclose(tm 
fclose(ti 
fclose(tp 
fclose(tc 
fclose(td 
TiniGa tae titan 


endread=0; 
while (endread= =0) 


fscanf(wq, aa ,anuml) ; 
switch (numl) 
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case l 


case 


case 


case 


case 


case 


case 7 


case 


case 


case 


case 


case 


case 


case 


case 


case 


10: 


ll: 


12: 


13: 


14: 


15: 


16; 


: fscanf(wq, / 


: fscanf(wq,"Id il 


: fscanf(wq, as Jd Jd",&num2, &num3, &num4) 


switch (num3) 


case 8 : oe w~header = &(desc[num4] ); 

reak ; 

case 9 : if (num4 = 0) 
"dese [nunz] right0O 


ptr ; 


eee oe nun? |. rightl = ptr ; 
reak ; 
case ll Loree ‘wal ehvalue = num4 ; 
break ; 
case 12: Gesc num2]. r_value[num4] = savh ; 
reak ; 
case 15; desc [nun2}. .ext_ptr = &(desc([num4]) ; 
reak ; 
case 16: desc [num2] . »parent = num4 ; 
break ; 
default: if (num3 < 7) 
Fe ce uneae -param(num3] = num4 ; 
else 


Peinet(werhoneinececodind code\n" ) 
endread =1 >; 
break ; 


} 
break ; 
ae um2 ) 
savh = eae h Qin ; 
break 


: fscanf(wq,"]d",&num2) ; 


tr = esc(num2]. header ; 
reak 


‘ ee eae &num2 ) ; 


sc{num2]) ; 
reak 
&num2, &num3) ; 
( Seen .parain[num2] = num3 ; 


: Re Ca A wq,"Jd",&num2) ; 


tr = esc[num2]. ext_ptr ; 
nee ; 
(*ptr).ext_ptr ; 
are : 
trm = (*ptr).mptr ; 
reak ; 
trm = (*ptrm). matptr ; 
reak ; 
fscanf(wq, noe ,omum2) ; 
eee rde ayO = num2 ; 
break ; 
fscanf(wq, Ricerca ; 
Pe) delayO = num2 ; 


eee ane cae rai ,&num2 ) 
(*ptrm).rdelayl = num2” ; 
break ; 

fscanf (wq ," dq", &num2) 
da) delayl = num2 ; 


bre : 

eee "jal &n ee 

OE smptr = &(matx num2] ) ; 
ea 


fscanf(w "Td Jd",&num2, &num3 
matx num smatptr = &(matx(num3]} ; 


brea 
pecan "Td Jd",é&num2, &num3) ; 


matx[num ie rde ay0 = num3 ; 
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case 17: 


case 18: 


case 19; 


case 20: 


case 21: 


break ; 


fscanf (w See ,amnum2, S&mum3) ; 
matx num ‘Z delayO = num3 ; 

brea 

fscanf(w 


lid jor ,anum2, S&mum3) ; 


naan 1. rdelayl = num3 ; 


éscane(ug,\ UI oe ,anum2, &num3) ; 
ete [num delayl = num3 : 
depth{9] = depth[O] +1 ; 

break 


begint [0] = freft ; 


ak 
case 22; (Fenaé(o])). tpt, = freres 
break 
case 23: endt[0| = tTrert = 
break ; 
case 24: Suge = (*freft).tptr ; 
case 25: (Fepat(a))), etptr = NULL ; 
a 
case 26: fscanf(w es: um2 ) 
(*(endt| 1) ee &(dese[num2]) ; 
break ; 
case 27: oes senecg um2 ) ; 
(*(endt (0) nae num2 : 
case 28: fscanf wd, ale ]da",&num2, Snum3 ) : 
scanf(wq, Wot &2) ; if output names */ 
z=getc(wq); 
z=getc(wd) ; 
mess * / 
pen une econ ; 
re 
case 29: fscanf(w »")d Jd",&num2, &num3) ; 
sym{num2].index = num3 ; 
break ; 
case 30: sav_write =0O; 
break ; 
case 31: fscanf(wq, "])d",&num2) ; 
num print = num2 : 
brea : 
case 32: out_interval =1 ; 
break ; 
case 33: fscanf(wq,"]d Neve &mnum2, &num3) ; 
See | ~pfunc = pnfn{num3] ; 
brea 
case 50: endread = 1 : 
Dkediva: . . 
default: printf(" error in input data decoding\n’') 
/* end while */ 
gclose (wa) ; */ 
wp = fopen(argv[2],"w"') ; /* is the output data file */ 
* connections x / 
prin aie Welcome to MultiSimPc \n!''); 
Pinte. \n"); 
ime = -l 
Elna wheel = -1 ; 
sav_time = 0 ; 
print£(" Please enter Simulation time: '"') 
scanf(' |av, &sim_time) ; 
rintf(" \n") ; 
SS IIIT II im INITIALIZE INPUT DE Oe IN TIMING WHEEL@«<7<<e<"---<-<-- * / 
for ( i= 0; i < num_input; i=i+1l1 ) 
= &(desc[i 11} yf /* beginning descs. = input descs.%*/ 
oe a pfunc Waals /* call to read_input */ 
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------- Se See = PEC re iGannie ea ————————<———S———ssSso== * / 
while ( time <= sim_time 
/* begin while time < sim time */ 
if (timing_wheel >= mdelay) 
timing_wheel = 0 * Timing wheel is circular x / 
while ( timing_ wheel < mdelay . ee: 
/* begin 1 loop of timing_wheel */ 
time = time + 1 
if (time > sim Becme) 


break 
sav depth = soo timing_ Ao ; 
savt eaccer iming_wheel] ; /* ptr to first element*/ 
while ( depth timing wheel} != -1) 
f while all row slots have been updated */ 
[keon--------------- BEGIN UPDATE-------------------------- */ 


/* All descriptors connected to the current descriptor are*/ 
/* updated with the 'future value' from the timing wheel ay 


po aft the present value differs from the *future value’ * / 
edt = be Sane be ng wheel] ; 
pen = *fudt). goer 
pe ant timing_w eel] = (*(begint[(timing_wheel])).tptr ; 

begint Pome. to the next element in the current row */ 
1 See SSS Songer ATEN Se age) he Nye meme oe mmo * / 
Sip (((*fwdt) . gee . 

/[% af schedu ag is 1, schedule the descriptor */ 


ts pce tt) func) )(( flac concen) 
wdt).sflag = 2 
/* de-assert scheduling flag */ 


epecnL taming wheel ag gee pene _wheel] - 
‘flag = 0 = 1 indicates a ee -output desc. */ 
sav_value = Cees, aoe ; 
* sav_ value = future value from tim. wheel * / 
* i.e. value to be replaced for present output */ 


while (1) 
f : /[*% Bean while C-list for each output is updated x / 
sav r= 
iP Say pace [= -1) 


‘ (((4ptr) .present_output) != sav_value) 
s change has necired d, 
‘ott = (*ptr).header ; 
if (ptr != sav_ptr) 
f /* if not-end of eat cakes list, then begin * / 
(ptr) . »~param[(*sav_ptr).h_value] = sav_value ; 
Input enor. poeeaeee to by the desc. is updated */ 
nee r = ptr 
switc ((*sav_ptr). h_value) 


case 0 : ptr = (*ptr). Figo: 
field_ no = (*prev_ptr). r_value[0] ; 


reak 
case 1: ptr = (xp tr eright ie. 
field_no = (xprev_ptr). r_value[1] ; 


while (1) 

"f /* while begin */ 

if (ptr == sav_ptr} 

eS end of circular list, then get out */ 
reak ; 

sete): aram([field_ no] = sav_value ; 
Upgat e- in ug with ‘future value! */ 

prev ae 

ee eae cea 
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case 0 : BES = (*ptr). -FlgneGs- 
a = i. ‘prev_ptr .r_value[0] ; 


case l : tr = (*ptr).rightl ; 
Px = (per) rs .r_value[1] 


eleid no = £x ; 
/* end while * / 
} /[* end then (if not end of C-list) */ 
} /* end if change has occured */ 
[* if sav_value != -1 * 


} 
if (flag == 1) 
if ((*nwptr).newptr == NULL) 
brea a Me /* if nstack has no more extension */ 
nwptr = (*nwptr). newptr ; 
else 
ee es nptr == NULL) 
nw a = (xEwdt). nptr ; 
fla i: 


ag = | 
/* flag is asserted for a multi-output function */ 


a 
tr = (*sav_ptr).ext_ptr ; /* if multi-output case */ 
av_value = Bree tr).newvalue ; 
rE end odaee of all descs. in C-list af 
} /* end of update of one row of T.W. */ 
| ke-------------- END UPDATE-------------------------------- x / 
depth[timing_ sbi = sav scenes ; 
begint[timing_ wheel] = savt ; 
a EXECUTION PHAS Bo =o nee ee 
is Second pass -Schedule the descs. in C-list & insert in */ 


+ oF 
™ 


eee per time slot if out ut oe Sone desc. has changed 
hi e ( oon anea ‘wheel = 
begin execution aE one row of timing wheel */ 
fwdt = begint[timing_ ee 
begint (taming y wheel] = = (x( egint(timing_ wheel])).tptr ; 
r = W 
Bepth( timing @h heel = déepth| timing2wheell| => aie, 
sav_value = (*fwdt).newval ; 
* future value * / 


ee * flag = 1 indicates multi-output desc. */ 
while rot 
{ /* begin while not end of C-list for all outputs */ 
SaV_DEr = pir; 
1f (sav_value != -1) 


if (((*ptr).present_output) != sav_value) 
* change has occured */ 
(*ptr).present_output = sav_value ; 
* update present output */ 


ptr = SRE: eheader ; 
if (ptt sav eptr) 
* 1f not end of C-list, then begin */ 
/k==-SCHEDULE DESC. ---------------------5-------- */ 


arent_ptr = &( (desc[(* tr).parent]) ; 
(*((parent_ptr). Func Benne. se out) ; 


paeaa) ; /* mode simulation */ 
fdel_ wos Ra aa) -h_value) ; 
s * find delays and insert in proper slot */ 
rev_ptr = 
aeaee i aaoeeon h_value) 


case 0 : ptr = (*ptr).right0O ; 
frets no = (*prev_ptr). r_value[0] ; 


bre 
case l : Seen : (*ptr). rigve:.. 
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field_no = (*prev_ptr).r_value[1l] ; 


carts (1) 
{ /* while begin */ . 
eee == say_ptr) /* if end of C-list, quit %*/ 
reak ; 
/*---SCHEDULE DESC. -get all parameters first --*/ 
parent_ptr = &(desc[(*ptr).parent]) ; 
*((*parent_ptr) .pfunc )(0,duminp,f_out) ; 


fmode() ; | /* simulate mode behavior */ 
fdel_ins eee : 

/* find delays and insert in proper slot */ 
Pieveptl Pe ; 
switch (field_no) 


case 0 : ptr = (Aptr) .ri hto ; 
fx = (*prev_ptr).r_value([0] ; 


‘ peas fe ere 
case 1: ptr = ry el : 
Ex = (eeeay Soot eesti ue (10 : 
field_no = fx ; 
end while | * / 
+ awe end then (if not end of C-list) */ 
3 /* end if change has occured * 
/* end if sav_value != -1 */ 
LE (flag == 1) /* multi output case x / 


if ((*nwptr).newptr == NULL) 
* fref storage for nstack */ 
mu Per new tr = fref ; 
ref = nwptr ; 
break ; /* If all outputs have been handled, quit */ 
/* free storage for the previous nstack */ 
npptr = nwptr ; 
= (*nwptr).newptr ; 


nwptr 
pane EOC YPED = fref ; 
ret = npptr ; 


else /* if flag is 0 */ 
pom eenoe) 2n Des == NULL) 


reak ; 
nwptr = (*fwdt).nptr_;. 
flag =1 ; /*® multi-output case “*/ 
ptr = (*sav_ptr).ext_ptr ; 


sav_value = eee nee atu ; 
7* end (C-list scan for all outputs) */ 


eocerre------ Free storage for current tstack -rc-ee<----%/ 
Eee — £rert ; 
en Bact ; 
eerie se 2oc 2s. .-.-.-------2- / 
/* end of one row of timing wheel x / 
write_output() ; Henne results */ 


pecans. timing wheel] 
endt{timing_wheel] = NULL 
timing_wheel = timing_wheel +1 ; 
* move to next row of timing wheel */ 

3 /* end of 1 loop (vertical) of timing wheel */ 

/* end time < sim time x / 
ees ; 
fclose ; 

/* end of main Epodkan x / 

SS Wee ee www eeesone END OF MAIN ence nnn n nnn nnn n nn nnn nn nnn n= */ 


i KRAARKKKAKKKARKRRKRKRRKAREKRKRKKRKKRRKRKKRKRKRKRRKRRRRKAKRKRRKKRRRKRRKKKKAKKKRKKKAK 


* A 
s FMODE SUBROUTINE a 
RIKKAKAKKRKAKKARKARRARARRAKRARRRKAKRKARERRARRARRERRAERRAERRARRRRRRERRE RR 

pe ne finds outputs for each descriptor according to its mode % / 
mode 


int 1, mode ; 

struct descrpt *xtptr ; 

KUDPEL — Pahenicat aan, . 

oe (i = 0; i< num_louts ; i= i +1) 


mode = (*xtptr).param[6] ; 
switch treet 6] 


case 0 : f_out[{i] = f_out[i] ; 
f tI ] fa] 


rea 
case 1: i1f cts cee == 0) 
out [ae : 
peat 
case 2: if ae out i] == 1) 
£-outla}| = : 
break; 
case 3 : f_out [i] = 0 ; 
Dheas 
case 4 ; £ out[i] =1; 
pace = (*xtptr).ext_ptr ; 
/3 none --------------- END FMODE----------------------------------- */ 
[ REREKRKKKKRK REAR RAK KK RRA RRK RK ARARKK EKER KK EKER EKER EKER RK RK KKK 
* « 
i FDEL_INS SUBROUTINE a 
RRAKRRARK KKK RKKRKKK KERRIER RR KKK KERRIER IERIE RRR RRR RRR ERR | 
/* This procedures finds the delays applicable to a function */ 


pe connected to the output of the current descriptor. The input */ 
/*number to which the current descriptor is connected is supplied*/ 


ieee eae 
anp.: /* inp = input number to which the current desc.*/ 
/*® connected */ 


Int.4 k 
struct matrix Amtptr 
o--------------------- “COMPUTE DELAYS---------------------------%/ 
“TE (f_out[O] == 1 
ee one == 0) 
eee ] = (*ptr).param[2] ; /* del-0 = rise del(0,0) */ 
2 
del(O] = (*ptr).param[4] ; /* del-O = rise del(1,0) */ 
2 a /* i= first output vices 
"aelio} = ae param[3] ; /* del-0 = fall del(0,0) */ 
*aeito] = (*ptr).param[5] ; /* del-O = fall del(1,0) */ 
if ((*ptr).mptr != NULL) /* multi-output case */ 
nee = Pee mptr ; . 
(1 = 1; i < num_outs; i = 1 + 1) 
if (f_out[i] == 1) 
if (inp == 0) 
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ets = (*mtptr).rdelayO ; /* del-i = rise del(0,1i) */ 
else 

del{i] = (*mtptr).rdelayl ; /* del-i = rise del(1,i) */ 
else (eee eneourtput 1s 0 */ 


if (inp == 0) 
del{i] = (*mtptr).fdelayO ; /* del-i = rise del(0,1) */ 


else 
del{i] = (*mtptr).fdelayl ; /* del-i = fall del(1,i) */ 
om RED Er) -MeEDEr == NULL) 


: reak ; 
else 
mtptr = (*mtptr).matptr ; 
} 
[Xe wceccesscccerece- eee x / 


/* For a multi-output function, different delays are possible. */ 
/* Insert in proper slot for each different delay a 
for (i = 0; i < num_outs; i = i + 1) 


if (del[i] !=-1) /* delay = -1 means input and output are */ 
* not related. “ul 
delay = delfi] ;__. 
Peeout(i}] = £ out[i] ; 
ee Checkeraretdentrcalscdelays =-—=—a=-=—== ah 
for (j = itl; 3 < num_outs; j = j + 1) 
cig ee == dela . /* For identical delays on */ 
£ Bout ai othe | je, SsCLLLebent outputs, function */ 
else /* should be inserted ouly once*/ 
ff_out({j] = -1 ; /* -1 output means, keep the */ 
J /* output x 
[*Reore--- Eliminate the delay cases which have been covered */ 
for (k = 0; k < num_outs; k = k + 1) 
if (del[k] == delay) 
asiticl =-l ; 
ee ee eee en eS ee eS Si oot eae * / 
insert() ; /* insert in proper slot */ 
else /* if delay = -1 */ 
ff_out[i] = -l ; ‘i 
3 ------------------- END FDEL_INS-------------------------------- * / 
[RRKKRKKRKRKK RAKE RARER IKEA RARER AERA RAR ARK RK ERK ERE 
a x 
; INSERT SUBROUTINE 
KKKIKKKAKKIK RIKI KKK IK IK IK IKARIA AIK IIR IERIE IRIE RAR RK 
/* This procedure inserts the function in proper slot in T.W. * 


insert() 


fite2,),k, slot_no ; 
slot_no = (delay + Se eae ; 
Be ii slot no] = depth[slot_no] +1 ; 
i (endt[sIot_no] != NULL) 

F ( (endt[slot_no])).tptr = freft ; 
else 

begint[slot_no] = freft ; 

/* allocate storage for tstack */ 

endt{slot_no] = freft ; 
freft = pene 8) (PEC ; 
(*(endt{slot_no])).tptr = NULL ; 


183 


[Rowe nnnncnnnnnencnncnnene---- ae 
mendt[ stot no }" .dptr = parent_ptr ; 
endt|slot_no newval = he Out yO 
1f (num_outs > /* multi-output cases */ 


(i (enat [slot no] )).nptre=]="rren 

* allocate storage for Re cer a 
(*fref). newvalue = ff_out[(i1] ; 
nwipt_ = fref 

fref = (Ffref}. newptr ; 

a (num. outs > 2) 


Kr= 0; 
ere 
cue (k == 0) 
(*nwlpt) .ne = fret ; 
nwipt ="fre 
‘ fref). fret = f£f£.0ut( 3 ie 
a = (*fref). newptr ; 
+ 
ie (j == num_outs) 
break ; 


(trent eee = NULL ; 


se /* 1£ single output function x / 
(x (endt[slot_ acl e nptr = 
/* put new value in the slot */ 


7 wo ---------------- END INSERT---------------------------------- */ 

[RRRKKRAKKKAAAKAKK KK RAKAAKAKAKAKKKKRAKAKA KKK RAK KK RAK AKA KKK KAKA KAI 
x * 
: READ_INPUT SUBROUTINE a 
AKKAKAKAKKKKKKKKKKKK KK KKK KKKK KERR KKRR RRR RRERERERAKRAKAKRKKRKRKE 
read_input (ddnum) 

int ddnum :; 


tnt Ij,corder, Kk, sloren, 200 mam 
i determine input order i.e. which input 1S to be readue., 
desc edna oe 
ED desc{ddnum].param[2] ; 
for (i= 0; 2S une neue = 1 = ie ee) 
2 ae@oe) == piece) 2) 
break ; 


order = 1; 
/* input order found so quit searching */ 
uF (sav_time != time ) 


sav_time = time ; 
for (i= i < numZinput ; 2 = 25+ 


QO; 
Fscanf(r ro) al ak) ce 
inpt[ij = 


e 
, 


et out [0] = inpt[order] 
slotn = (timing_wheel ia 'p2 ](mdelay) ; 
Seal istota ="de Bee n| +1; 
eens! S etn} = NULL 
(*(endt(slotn])). tptro=frere 
else 
ae int({slotn] = freft ; 
/* allocate SE OuSeen for tstack x / 
once sno ae = fref 
freft (AEreat). epee ; 
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*(endt{slotn .dptr = &(desc[order]) ; 
*(endt{slotn enewval = f_out[0] ; 
*(endt|slotn onptr = NULL ; 
*(endt[slotn .sflag=1 ; 


} 

[Renwnnnnnn----------- END READ_INPUT------------------------------ x / 

[RRKRKKRARRRRARR RR AK AKRK RAK AKA RKKRKRKKRKKRKK KKK KKK KAKKKKRKRKKK KKK K 
* * 
a WRITE_OUTPUT SUBROUTINE s 


RKKKKAKAKKKAKKKAKKKAAKKKAKAKKKAAKKKKKKKEREKKRKKK KKK KKK KKKRRRKKRKRKKK AK KA | 


write_output () ; . 
* num_print contains the number of lines to be pea aeee a 
/* out_interval is interval after which value is to be printed */ 


i‘ sym[].index contains indices of descs. representing output x / 
nt Ll; 
if (sav_write == 0) 


ee eae, time’); . 
motel = 0; is< num print ; 1 = i+ 1) 
fprintf(wp,"! Weagiiae es tename ; 
merantr(wp,"\n'') ; 
fflush(wp) ; 
sav_write = 1 ; 
Gerantt(wp, “ ]3d ",time) . 
emai = 0; 1 < num_print ; 1 = i+ 1) 
fprintf( Fee eae Ssymi2] -index)}ypresent—output) ; 
n 


Bien vo): 


#include ''c:\simd\block'"! 
[RRIRRKIKIRAAIK RRA IK IK IRIR IERIE IR IRI IRIE 
* 


* 
: INVERT SUBROUTINE : - 


KIRK AK KAKA KAKA KAR AKER AKI IK AK KIRK IKK KK RIKI K IKK KARR RAI | 
INVERT(flg, inpx, ou) 
tae flg , xinpx, Xou : 
ato == 0) 
Baceaca(inpx, 1) ; 
switch( ( inpx)) 


case 0 : ey) 1; 


break ; 
case 1 : eeu). = 0; 
break ; 
case 2: (*ou) = 2 ; 
num_outs = 1 ; 
[Re nwnnnnen----------- END INVERT---------------------------------- * / 
[RRRKKRKKAAKKK ARK RK RKKK KKK KAKA KAKA KARR ARK RIK IKARIA RAR RAK AKKKKK A 
* x 
; AND SUBROUTINE ‘ 


KAKKAKKKAKK KKK RARER KKK KKK KKK RERK RAK RARER ERE ERK KKK RIERARERARAR 
AND(flg , inpx, ou) 
Beeerclg , *inpx, *ou ; 


imme Ss > 
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vet eee 
inda ARG 2) 
s = (*inpx) + (*(inpx a 
switch ey 
case 0 : ow) =O; 
break ; 
case l: ee) = 0; 
break ; 


case 2: if ee == 1) 


else 


(Xu) = 0; 
eak; 
default (xous = 2; 
num_outs = 1 ; 

[Kawneer nnn nnn ------- END AND--------- 9-29-22 n enn enn = -- * / 
[RRRRRAARRKAAKRRKA RK RKKRKRRKK KKK A ARKK AK RKAAKRKKKRKKAKKRAKAKKKAAR KKK 
* 
‘ OR SUBROUTINE ; 


RRAKRRRAA RRR ARR KKK KKK RRR KKK RRR RARER RARER RR RK RRR RRR AER / 
int el ,inpx, ou) 
g 


inne e , inpx, *ou ; 
fee (£16 
inda za (inpx, ) ; 
s (*inpx) + Ge ey : 
switch es 
case 0 : eet) = 0; /* ou is pointer to f_out */ 
reak ; 
case l: ASeoU ie =l; 


brea 
case 2: if S59) 5 == 1) 
em =2>; 
break; 
case 3: (*ou) =1 ; 


break ; 
caret ; (*ou) = 2 ; 


[Kan nnnn------------- END OR-------------------------------------- */ 
[ RRAKERAKKRAKKRRAR ERA KR RAK KKK RARER KKK AKER RRR RRR A RRKKK RK KA 
e 

ji INDATA SUBROUTINE Zi 

IIR IA HARRI IRR AIHA I RIAA A RIN ATA ESTEE 2D al 

/* input data retrieval for a function * / 


inda ta(inpx, inns ) 
int *inpx, inns : 
/* inpx = input data array, inns = number of input data */ 
ae uee descrpt *tmptr ; 
ee 
site (ieee >= 1) 


(*inpx) = eee eparam[{0O] ; 


(*(inpxt+l)) = (*parent_ptr).param[1] ; 
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inns = inns - 1 ; 


i=2; 
tmptr = parent_ptr ; 
while (inns != 0) 


tmptr = (*tmptr).ext_p 

anos a i))= (SEapeE): ty ; 
inns = inn s - 

i=i+-i 

me Cinns 1 0) 


(X(inpx + 1)) = (*tmptr).param[1] ; 
i= 2£ + tL 


® 
‘ 


inns = inns - 1 ; 


/* end while */ 
[Knnwnnn-------------- END INDATA---------------------------------- * / 
[RRRRERERKERKERKAKKR RAR KER KER KKK KAKA RRKK RK KKK RK KKK ER ERK KA 
i 
Fe HASHF SUBROUTINE : 
RAAKKKKAKKKRK KKK RRR RRR ERK RRRK ERE R RRR RRE RRR KERRIER AREA KARR / 
peo $s) /* forms hash value for string s */ 
FS ar 
int hashval ; 
for (hashval = oe ks t= '\O' ; ) 
hashval += *s : /* hash ID name into an index */ 
test(S&hashval); /* and test for collisions x / 
hashtable [hashcount]=hashval; 
hashcount++; 
return (hashval) 
[k------------------- END HASHF----------------------------------- */ 
[RRERERARAKRKRERAKKKK RARER ARK KERR KEKE RK RARER RIERA KKRIER IKKE RRR A 
4s x 
e TEST SUBROUTINE n 
KARKKRKKKKRKKKKK KEKE RKKK RE REKK RRA AKER RIKER ERK REKK KEKE RK AKER KR 
pa cive) 
int *value 
amt i; 
iS > i<hashcount; it+) 
if aS /* collision? * / 
Beta G) ae i yes, add a prime number */ 
oo * and test this one */ 
} 
} 
[K-=----------------- END TEST------------------------------------ */ 
[ RRERKKRKAKKKKKKRRAKRRKRKK RAK RAK RAR KK RK KARR IKK RRKK RAK KKK 
Ke x 
; GETNAME SUBROUTINE 


RARKKKAAAKKKRRR ARK RER ERE RRKK KERR KKK KER ERKRK RAK RERRERRRAKER ERK / 
etname() /* returns the name in tokenbuff */ 


art a c , flag, delimiter ; 


== 
peiimiter =-l1; 
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ane = 10 a. 
while(( delimiter < 1) || (flag == 0)) 


Tees ; 
eeieen Cc 
case ' ' ; delimiter = 1 ; 
Drea 
case ',' ; delimiter = 1 ; 
break ; 


case '\n': delimiter = 1 
ene Te uename = a ; 
flag = ; 
break i 
default : flag = 1 ; 
delimiter = 0 ; 


} 
if (delimiter == 0) 


LE (45<= 6) 
tokenbuff[i] = 
1T=i+l1=; 
} 
} . 
tokenbuff[{i] = '\0! 
[Rennnn-------------- END GETNAME-~------------------------------- */ 
[ RRERERERRKK KK AKAKARAK KK REKKRKEKKAKKK KAA AKAKKK KEK AKA AK KER AKERERKR 
_ FCOPY SUBROUTINE A 
ll lial ii 
FILE Er, i) 
FIL 
mn co. 
while es = getc(rr)) != EOF) 
putc(c \; 
| ®a------------------- END FCOPY---------------------------------- */ 
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APPENDIX D 
THE EDITOR PROGRAM 


[RAKRKRKKKRKARKKRKRK RK RAR KKK AK AK ARK RAKK RAR AK KAAKAK RK RKAEK AKA RKRRRRAKK AK 


Edition Program 
oO mmee 
Multilevel Simulator 


VERSION 3.1, 14 Apr 1987. 


ed under MSDOS and PCDOS by 
uquerque at Naval Postgraduate 


School. Use with CADD version 3.1. 


cs 
# 
& 
« 
‘ 
x 
Zz Original version Sonar 
E Julio Cesar Lopes de Al 
x 
x 

dnt _mlen = 500; 

mae emem{500j ; _ 

#include "\lc\stdio.h" 


#define maxkey 30 


#define maxsym 500 


#define 
#define 
#define 
#define 


extern 
extern 
extern 


extern 
extern 


maxprim 100 
maxouts 32 
maxnorm 50 


maxk 14 


GLOBAL 


int strepy() ; 
int primsetup() ; 


anit stremp( ) 
etid() 
ind_token() ; 


int 
bg ys 


e 
f 
e 


f 


int IDSTRING() ; 


int rfdel() ; 


int bdread() ; 


extern 
extern 
extern 
extern 
extern 
extern 


int repl() 
int cp_sim( 


int cmode() ; 
int matgen 
ght parsel 


My’, 


mit findid() ; 


it itdout 
ont adinp 


j, 


int upfan(); 
ant Bh} 
int new_sim : 


extern 
extern 


int prim 
int pram 


int finddesc() ; 


extern 


extern 
extern 
extern 


int Bar ceit | 
oie mdy_pri 


;: 


e 
f 


f 


he¥() ; 


int updesct() ; 


int ae : 
€ ; 


int upda 


int connect() ; 


int copy_sim() ; 


extern in 


t code_input() ; 


fas 


DECL 
* 
* 
be 


/* 


/* 

* 
ie 

* 
he 
/* 
/* 
/* 
/* 
/* 


I 


stdio.h> in DOS 3.x environment 


maximum number of keywords 
symbol table size 

1000 size in UNIX we 
maximum number of primitives. 
maximum of 32 outputs per prim. 
normload table size 

user options for the program 


ARATIONS-------------------------- 


copies one eed EO dnOene tums: 
external module to name the prims 
string comparison 

get next identifier 

returns the token number 
even taps index) 

PS Cees page=ng 
Bise/eale delays han ate 

block delay reading routine 
code generation for mode 

ony matrix and mode gen. 
SaingucniG Baeand . 

finds symbol table index 

verify the output of the gate 
verify the inputs of the gate. 
Repidecemainegate in tie Circurt 
copy a file until a desired point 
update fanout 

eae fanout 

copy the SIMDATA from a known 
point until the end 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEAKKKKKKKKKKRKKKKRKKRRKKKRREKRKREKRKRRKRKRKRRERKRRKEKRRRKRKRKKRKERKRKRRKEKKKRKKK if 


verify what primitive will be used */ 
select the option of the user | 
finds symbol table index for % / 
the aes function pane * / 
updates the descriptor table * / 
name and ayes table index) ay 
inds primitive library index * / 
update symbol table * / 
code gen. and fanld update a 
(descriptor interconnections) x / 
manages the deletion of delays oy 
modify the pes eoue as 
copy part of a file * 
code generation for INPUTS */ 
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/* declaration ae x 
extern int errmessage() ; /* error message printing x / 
Oxo otha ne BateeECEO) ; /* output error message * / 
6Xce hate hon ; /* error handling routine x / 
extern int fcopy : /* file copying routine * / 
extern int fadvance() ; /* advances to next line x / 
extern int hashf() ; /* converts input name to number 5 
extern int test(); /* tests for hash collisions */ 
Ine eng eea ; /* used to change the delay Bere a) 
int fnddel(); /* used to find a delay in the file */ 
int chgend(); /* change the print part of a file * / 
Int sencpene : /* erase part of the printout ay 
Die ansgace () /* used for insert a gate */ 
int Sree : /* used to change an input * / 
int delgate(); /* used to delete a gate * / 
int ersinp() ; /* used to erase a input * / 
[Rew awnnn none n nanan a ann sae ee nee ose ee ee eee ae ee eee ee */ 
[Kewennn---------- DATA STRUCTURES-------------------------------- */ 
struct sym_tab { /* symbol table x 

char name(8] ; /* name = name of id * / 
int descno, funcno ; /* descno = descriptor number * / 
/* funcno = primitive lib index x] 
int fanld; /* fanld = actual circuit load. */ 
int despos, delpos; /* despos = descriptor spaces in file */ 
at /* delpos = delay spaces in the file */ 
int ini_num, pri_num; /*X ini_num = initialization order x / 
| . /* pri_num = printout order a 
int pri_val; / prisvale= characters in variable */ 
struct desc_tab { /* table containing functions * / 
char fun[8] ; /* names (type names) and their */ 
int dnum ; /* symbol table indexes * / 
struct norm_tab { /* table containing function * / 
char nom([8] ; /* names/types and associated 7 
int nmld ; * normload declared in DEFINE * / 
Struct prim_tab { /* Primitive table : 23) 
char nam ee ; /* primers table * / 
char nam2[8] ; /* EXTENDED primitive table * / 
int numpar, outp ; /* mnumpar = no. of parameters * / 
int normld, fanout ; /* for the function */ 
Ait technology, overld ; /* outp = # of outputs x / 
struct err_stack { /* stack for errorsa nonce ene * / 
char nm[8] ; /* nm = name of unexpected id */ 
int errno ; * errno = error number * / 
struct inp_name { /* holds all the inputs for each gate */ 
char iname[8] ; /* iname = name of the variable = 
int inp_num; /* inp_num = # of inputs in the gate %*/ 
char inp1(8], inp2(8];  /* inpl to inp10 = inputs for the gate */ 
char inp3(8}, inp4{8]; 
Char inp5(8), duporel- 
char inp7{8}, inp8{8!; 
char inp9[8], inp10[8]; —_ . 
int 2fin: /* ifin = termination of the table * / 
struct tab_del { /* holds all the information about the */ 
int indx, dsc_nb, typ_num; /* gates that have modified delays */ 
int num_ipt, num_opt, val; 
/k=- ee nn een * / 


[keoerne--------- STORAGE ALLOCATION 


struct sym_tab symt[maxsym] 
struct desc_tab say nae : 
struct norm_tab nort[maxnorm] ; . 
struct prim_tab ee eee “primptr ; 
Beruct err_stack errt[5] ; paeiac Crow erEors per line 
struct inp_name app tab tmaxsym] ; 
struct tab_del del_tab[100]; 
int err_ptr ; /* error table pointer (count) 

/* for one line. 
int matcount ; /* delay matrix count 
int delimiter, bb ; * delimiter = delimiter type 
/* bb = buff[80] index (line) 
int rdmat[maxouts][maxouts], fdmat[maxouts|[maxouts] ;. 

/* rise and fall delay matrices 
eae coknn, err_count ; pomerrecoune == error count 
ant features([maxprim] [2]; 
Paemcesc no , sym_count, symid ; /* desc_no = desc. count 
Mieecdptr, descid, lim ; /* descriptor table indices 
/* dptr = descriptor table cnt 
int normcount ; /* normtable count 
ame fi lecount; /* poutcount used for debugging 
int prinpflag; /* controls printing of source 
meeeend, outpar; | . er. 
fieeprim_count, primid ; /* prim_count = # of primitives 
int sys_prims ; /* number of permanent (system) 
Palme Vesti se 
int ever im ; * save the primitive to be used 
char token_buf[8], savbuf[8], buff[80] ; a buff = 1 line 
char keyword[maxkey][8] ; * keyword table 
char ke meet tabi /* key table 
int hashtable[10 1; * the hash table | 
int hashcount; . /* number of items in hashtable 
int out_sub, Se aee ee /* holds the primitives in REPL 
iiemact del, olddel_sym ; 
int savid[maxouts] ;. 
ant old_desc, new prim, numl, num2; 
int old_val, old_ipt, old_del, desc_old; 
PieenunNs, 1Lout; 
faeeindex, indexl, old_func; 
maeeord ini, ord_pri, endf; 
Miceval sym, dptil ; 
nt Bene’ valact ; 
int skp5, no_new ; 
Siar Z; 
fieeinum, ant_desc; 
moeectarget, templ, parl; 
Piteparml, parZ, parm2; 
iitesavparl, savparZz, num; 
fat Savtoken; 
int del_sym, del_ipt, del_dct; /* used in the delete case 
ime new, n ar gay skp; 
ant del_val, skpl, skp2; 
int savn[maxouts]; 
imencot_ val , ol weir , old_sym; 
int skpd, Spm, S ee ae ; 
int posit ,skpc, skp3, skp4 ; 
Mieeval prt -; 
char savfunc(8], userprg[8]; 
FILE *ri ; /* pointer to input data file xf 
FILE *tl ; /* pointer to temp file a) 
FILE *t2 ; /* pointer to temp2 file au 
Bauen *t3 ; /* pointer to temp3 file * / 
FILE *t4 ; /* pointer to temp4 file a) 
Pook *t5 ;: /* pointer to temp5 file af 
BILE *t6 ; /* pointer to temp6 file — | af 
FILE *ti ; /* pointer to initialization file * / 


19} 


ay 


[RRRRRKRKKKRKRKKK AK ARKRRKKRRRKRKKKRKKKRKKKAK RK KARA KARKKKAARKEKRKKKKKKKKK 
* 


* 
* 


me “Se OE NO VS Be We WH WH WE 


pointer 
pointer 
pointer 
pointer 
read 


symt 


desct table stored for edition 
nort table stored forsedmtemen 

input table stored for edition 
* delay table of the descriptors 


MAIN PR 


Co 
EO 
CO 
Co 


OGRAM 


modif. dela 
descriptor i 
std. dela / 
printout i 
pointes to input data file / 
able stored forvedaiiaon ; 
/ 

/ 


ee 

iene 
‘falle 
bbe 


* 
* 
* 


RAKKAKKKKKKKKAKKKKKKKRAKKKKKKKKKKKAKKAKKKK KKK RKKKRARKKREKKRKKKRKRE | 


main(arge, argv) 


int argc 


onae karg(]; 


int sere k, l 
userpr 
lag =O 


strcp 
prinp 


Srraprne— —i; 
err_count = 0; 


, MM; 
pal Gy lee ae 


[*----------------------PRIMITIVES SUPPORTED--------------------- * / 
ee (i = 0; 1 < maxprim; i = i + 1) 
primt(i].normld = 1 ; 
PHIME | sfanoura— 420"; 
Primt ai. tecnnology = Oa, 
primt|1].overld = ; 
primsetup(&primt(0]); /* initialize primitives */ 
sys_prims=prim_count; primcount may change, but */ 
/* we need a copy of its x / 
/* starting value x / 
[ Keene cece nnn eo ------- KEYWORDS <<< -8 33366 e esse sss ease sae ese * / 
strcepy(keyword/[4 tae 
strepy( keyword 5 ae 
strcepy(keyword!10],"RISEDEL" 
strcepy(keyword! 11], "FALLDEL" 
strepy(keyword!12],""TECHNOL" 
strepy(keyword[13 / "TTL" ) ; 
strepy(keyword| 14 ‘cpt ; 
strepy(keywordj15],""CMOS") ; 
strepy(keyword{/16],"ECL") ; 
strcepy(keyword[17 ,''FANOUT" ) 
strcpy(keyword[18 cence 
strcepy(keyword|19],""OVERLOA" 
strepy(keyword[20],"END") ; —~— 
strcepy(keyword| 29] ,"#"'); /*®* end of part of edition*/ 
LP erere reer Terre eT Pe rere r errr oo oe Sees ey x 
strepy(key[0],"REPLACE") ; patos Cinewue at eee compiled*/ 
strepy(Key|11,"INSERI' /*insert new gates in the cirecuit*/ 
strepy(key{2|,'" DELETE") ; /*Xdelete gates in the circuit*/ 
strepy(key|3/,"ALTDEL" ) ; /*change delays in the circuit*/ 
strcepy(key!4|,"ADDPRI") ; /*add a printout in the circuit*/ 
strepy(key[5],''DELPRI" ); /*Xdelete a printout of the circuit*/ 
strepy(key[6],"ALTINI'"') ; /*change initials of the circuit*/ 
strepyekeyiy7 |, INSOUT" )- /*insert outpub im thescareuses 
strepy(key|8}j,''DELOUT" )- /*delete output of the circuit*/ 
strepy(key|9 Leet /*change dedave of a gate type*/ 
strepy(key|1 [| , "INSINP" ; /*insert inputs in the circuit*/ 
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,'INSINPG" ) ; /*insert input and gate . * / 
strepy(key|12 ,"DELINP" ) ¢ /*delete inputs of fhe circuit*/ 


trepy(key({13]} ,''DELINPG /*delete input and gate 


strcpi ney[12 
jgircpy(key[13],"DELINEG"); __/Adelete input and gate */ 0 r 





/* the system will copy all tables that will be used to allow the */ 
fy edition of the circuit. * 


sy = fopen("d:s table" ,"r''); 
pee eeee d"',&sym_count) ; . 
fscanf(sy,"|d {d\n"> &ord_ini,&ord_pri); 
Bore (i = 0; i < sym_count; itt) 
fscanf(sy," Js ]d'',symt{i].name,&symt[i].descno) ; 
fscanf at d Aus avin | -funéno, &symt (i Beet. 
fscanf(sy," |d |d",&symti{i}.despos,&symt(1 .delpos); 
fscanf(sy," |d jJd",&symt{i].ini_num,&symt[{1] .pri_num) ; 
fscanf(sy," ]d\n",&symt{i] .pri_val); 





fclose(sy); 

ee = fopen(''d:deltable","r"'); 
scanf(dp,"]d",&index1); | 

for (i = 0; i < indexl; i++) 


Gecani (dp, |d Session .indx, &del Se ee ek 
fscanf(dp," jd |d",&del_tab[i].typ_num, &del_ta [et joan t); 
fscanf(dp,"" Jd |d\n'',&del_tab[i].num_opt, &del_tab eRe 





fclose(dp) ; 

de = fopen(''d:descptab",'"r"'); 

pene ae:, d\n'',&desc_no); 

fscanf(de,"]d\n",&dptr) ; 

for (i = 0; i < dptr; it+ . 
fscanf(de," Js INA decent ai. funede eer mame um) i: 

fclose(de) ; 

nm = fopen ("d:nortable","r'') ; 

fscanf(nm," ]d\n",énormcount) ; 

for (1=0;1i<normcount; itt) 


tEscancinm, js |d\n" nort(i).nom,snert{i)).nmld) ; 


fclose(nm); 

ip = fopen ('"d:inptable","r'"') 
Escanf(ip," ]d\n'"',&inum); 
Bagg <anums i++) 


fscanf(ip," Js ]d",inptab[i].iname,&inptab{i].inp_num) ; 
Becanhiipe ts |S" ainetabidt .anp),inptab[i}.inp2) ; 
Escanf(ip," |s js",inptab|1i].inp3,inptab[i].inp4); 
Pcannip ls.) Ss anptdo | tieinps,inptab|1].inps) ; 
Pecanniip, is is" inptabd| i} .inp?,inptab| i] .inps) ; 
ESscannip,. |S }s",inptabil?||.anp9,inptab|i .inp10); 
fscanf(ip," |d\n'"',&inptab[i .ifin); 


} 
fclose(ip); 


/* The system will fill Beene te positions in the input table with */ 
/* "xxx". This will save time in the program, during the edition. */ 


aor (i = inum; i < maxsym; itt) 


strcepy(inptab 
strcepy(inptab 
strepy(inptab 
strcpy(inptab 
strcepy(inptab 
strcepy(inptab -inp6 , "xxx" 
EEECpyY(inptap! 1). inp? , 'xxx" 
strcpy(inptabi/1].inp8,"xxx"' 
Strcpy inptab[i].inp9, "xxx"') 


MUD Ue ak) 
MDa wea. Joes 
SUNOS ake) ue 
inp4,"xxx'"') ; 
Tinpo, awk); 
; 
éf 
éf 
, 


hb 


strcepy(inptab[i].inp10,"xxx"') 
PU = sym COUNT selma, 


dpt — 
te “(aesct [apts] < dnum < syml) /* verification if symtable has “7 
_sym = ct +1; I any ooee that will not be *) 


else use 
val_sym coun 

ue = “fopen(argv[i], arty , 

ane a = 0; 

filecount = 0; 

ende=ne- 


1 = indexl - 1; 
index = del _tab[i]. indx ; 


skpc = 0 ; 

skpd =O; |. 

for (i = 0; i < val_sym; i++) /* count how many positions*/ 

f | * are occupied in the 

skpc = skpc + symt tty: .despos ; /* descriptor file and in thet/ 
skpd = skpd + symt[i].delpos ; /* default delay file * / 

while (end != 1) /* verify if edition was requested */ 

agtadtr 133) i 

ind_ke 


switch  Eoht nn) 


case 0: end = Q; 
parseid(4); oe 
Dig eccte ss beginning REPLACE case.\n"); 
eae: 
break 
case l: printf(" mins, tiie are beginning INSERT case.\n"'); 
insgate(0) : 
2: printe(" beginning DELETE \n"') 
case Bins C! <csGe eginnin case.\n"); 
elgate (0) ; : : 
brea on 
case 3: pranté(*. eens beginning DELAY case.\n"); 
end = 
parseid(4); 
While (1) 


[* Beas a internal*/ 
getia(te 3 
ind_to Dee 
ae tone == 45) 


end = 1 ; 
break; 


} 
let comme == 29) 


end=2Z=>; 
‘break; 


} 

ein token_buf) ; 

fanvea 

target = Syn eee .descno ; 

primid = symt[symid].funcno ; 
printiCe as making ]s cree 
S symid].name 
SSeS ea tae 
chgdel(); 


ee 


Case s4: sprint’, 9. add PRINTOUT case.\n"); 
val_prt = 0; 
1 = ord pri =e 
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oa (delimiter != 2) 
/% copy the prnt file x / 


filecount = 
Ee = fop Be ae pent" mien 
t6 = fopen Wa: tempe" , w" 


for (k =1; k < ord_pri; de 
for (1 = 0; 1 < val_sym; l++) 
rie eer rum == k) 
m = symt[1l].pri_val ; 
break ; 
pe 
mdy_pri(m,tp,t6); 
ols read the new printout % / 
Find token 03 
ind_to en 
Se aa ee making Js case\n" 
t[symid]. name 


) 
/ ease it in Ene prnt file */ 
symtisymial . -pri_num = order ; 


for (j = 0; 3 <= 7;j=39+1 ) 
ist pceen _buf[j] == '\O') 
break ; 
else 


Ephincmeron 25 \d jd "2. 9) ; 

Eprints (ts, Baa ee a eee ); 
val_prt = va rt + ; 

fadvance(4, coe. 


} 
symt({symid] .pri_ ee = val_prt ; 
Sacer = ord pri + 1h 
val_prt = 0 ‘ 
eenaeece "29 jd Dea a} .d _ 
sym1 escno 
fe dee cee 7 oy ae ae 


a: 1 

chgend(2 tp, GO) a 
fclose oe 

fclose(t 

EP = fopen (Ha: pune, nen 
: = (epee en ae empower! 
co ; 

Reiigee tr ; 

fclose(t : 


ee 
une Maer G}; 
if (toknn == 
end=1 ; 
if (toknn == 29) 
end = 2 ; 
else 
error(36) ; 


else 


break; 
case 5: ate ee delete PRINTOUT case.\n"); 
while (delimiter != 2 


filecount = 


= f Nd: til Wp). 
te = fopen( pents real 
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case 6: 


case 7: 


le ae the printout to delete */ 


Pr namener 

ind_to ane 

findid ; 

Preintil (lee making ]s case\n" 


symt{symid|.name) ; 
target = symtls id] pri isy : I. 
8 


ete the printout * / 
ers eeOY 
sym svajel -pri_val = 0 ; 
symt id|.pri_num = 0 ; 
Eclose' tp ; 
fclose(té6) ; 
tp = = Fopent' a Fempe' ele 
2 popen "A: tempee 2 be 
feo one 
felose (to) 
fclose 
getia(rp,3 a 
token ( 
if (toknn == 5) 
end = 1 ; 
else | 
if (toknn == 29) 
end = 2 ; 
else 
error(36) ; 
break; saat 
printi(". nee beginning INITIALIZATION case.\n"); 
arseid(4); 
Hosen: cp 
gota eRee 0} 
ind_token( 
if (toknn == 
end=1 =; 
break; 
if (toknn == 29) 
end = 2 ; 
break; 
cae token_buf) ; 
fina 


target = symt[symid].descno ; 

posit = symt[symid].ini_num ; 

Dineen". .sa0e making ]s case\n" 
symt[symid] . name ) 

getid(rp,33) ; 

if (delimiter != 2) 


error(21) 
rea ; 
num = atoi(token_ buf) ; 
choinie@ se 
Dredaka: 
pring l (ce inserting OUTPUT.\n"); 
angele : 
get a eee 333 
ind_token 
if (toknn == 
end = 1 ; 


else 
if (toknn == 29) 
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case 8: 


case 9; 


case 


case 


case 


case 


POE 


ll; 


12: 


13: 


end = 2 ; 


el 
error(36) ; 
break; . 
printf(".. ».-.-deleting OUTPUT.\n"); 
delgate(1) | ; 
ogee oF 
ind_token( 
if (toknn == 5 
end=1=; 
accu 
if (toknn == 29) 
end = 2 ; 
else 
error(36) ; 
break Yee 
printé(" eveneter: beginning GATE case.\n"); 
end = acd) 
arsel ; 
while (1) 


ee ere ay 
ind_token( 
if (toknn == 5 


end=1; 

break; 
2G seo == 29) 

end =2 >; 

break; 
strcpy(savbuf, token_buf) ; 
findprim() ; 
while (1) 


fnddel(1) ; | 
fom One Valesym; i++) 
see (eee funcno == primid) 


yredinet C)) ectel o a) eo as Js case\n", 
Sy ].name) ; 
spe det (), = _symt{i]. escno ; 
chg 
if (delimiter == 2) 
break ; 
A cai 
Ehginp) syereeeneke inserting INPUT.\n''); 
ae 
Sareea : 
repli (1 ag 
rea 
ee aie ers- _* INPUT and GATE.\n"); 
in 
ghginp 4): = : 
insgate(O); 
rea 
Brain) eee deleting INPUT.\n"); 
Sane ); 
soreeiaiay 
Be oul, 
Brean 


prints (\.. --.--.deleting INPUT and GATE.\n"); 
ersinp(); 


a 
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delimiter = 0 ; 


delgate(0); 
break; 
default: error(24) ; 
break ; 
} 
/*® save the modified tables */ 
print£(" leicce ate Saving tables.\n"); 


sy = fopen ("ds symtable", "w'! 





fbrintf(s y, {ana Ss _count 

soe sy, "jd Jd\n", cordiiiney ‘ord pri); 

for (i=0;i<sym_count;i++ 
fprintf(sy," js |d",symt( 2) mame; syne ceseno 
pene Se d jal) Pe iate ‘Bunce symt{ .fanld); 
printf(sy," id | deeergie i .despos,symt{1}.delpos); 
tprintf sy," dpa symh i eernnace symt[i] Drie num) ; 
fprintf(sy," |d\n",symt[{i].pri_val); 

pel ee ey 


= n esl d:-deltable'!! ee 
Bee, "]a\n", index1); 
Lor < index1; i++) 





poe nee dp. a de le Sede .indx,del geet td dsc 
primes tdi.) 3 d"' del_tab .typ_num,del eae Lat = =nb) ipt); 
EO inte (ap, d\n" | del_tab cae num _opt, del_tab|i].val ipt 


fclose(dp) ; 
de = fopen ("ds descptab","w''); 
eprint fede. | aXpn’ ,desc_no); 
forintfide,"-|d\n" doer), 
ECr Ce =0; -i<dptr; a) 
printf£(de, "Js Ja\n",desct[i].fun,desct[i].dnum); 

Ect oeeee) 7 

= fopen ("'d: :nortable", ee 
éprintf(nm, ! Javan normcount 
for (1=0 ;i<normcount ; i++) 


forinti(nm," js j]d\n"" nore! i|.nom, nont(a amie. 


fclose(nm) ; 

oe fopen ("'d: inptable’, BAL 

iDrintftip," \a\nll) tnum)- 
(i=0;i<inum; it+) 


fprint£(ip," Js ]d",inptab[i].iname,inptab[i]. inp num) ; 
Print&(ip,’’ [Ss }s ahptal wie esate inp ab[1i].inp 
fprintf(ip," |s |s",inptab|1).inb3, inptabiieenps ;, 
eee ip," |s |s",inptabii].inpS, inptab iain: 
Bee nee ip," ts js",inptabli)adinp7 , inpeac teens, 5 
PEINeE Cio, Sl oelse ,inptab i}. inp? ,Inpeacies .inp10$; 
foriunte@io, | dvi inpt tab{i].ifin); 
Poe ay 
if (enrecounee l= 0) ae 
5 error(26) ; /* Edition discontinued message */ 
else 
aoe) : /* no errors encountered message * / 
outerror() ; 
Se = ee END OF MAIN PROGRAM-o- recor etn n ttn r nner nnn */ 


[RARKRKKRKKAKKAKKKAKAKARKKAKAKAKAKKKKAKAKAKEKKRKKAAAKRKKKAKARRKAAAKRKRRKRKAARERRKKK 


* 


REPL SUBROUTINE : 


KAAKKAKKKKKKKKKKKKKKKKAKAKKKAKKKAKKRKAKAKKKAAKKKAKAKKKKKRK KA RKKKAKAKKREAE RF 
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/* used to make the replacement of one gate by another. * / 


l1(code 
int ieee 


int 1, sub2; 
gore (end == 0) 


outpar = -1; 
idout(); 
af (end != Q) 


mdfyfan(); /*®* update fanload * / 
out_sub = savid[0]; /* save the value of desc being replaced */ 
Premier... « Replacing _]s\n",symt[out_sub].name) ; 
old_prim = symt{out_sub .funcno}; 
old_desc = symt out_sub ,descno; 
for (i = 0; 1 < dptr ; it 
if (out_sub = ee eee dnum ) 

break; 

i= ositions a the ddf file occupied by the desc */ 
=p? = symt{out_sub].delpos ; 


ant_desc = 1; 

skp = 0; 

skp5 = 0 
/* how many eras are occupied in the dcf and ddf * / 
y~ tiles until the descriptor of the gate to be replaced */ 


for (i = 0; i < out_sub; i++) 


skp = _sk + symt{i].despos ; 
So < ates eae acipee ; 


filecount = = 0 
EC fopen(" a: :desc£", ys 


fopen("d:temp4", "w'! 
cp _sin (sk tc,t4); 
Pp 


* modify the Stas in DCF file * / 
4= sk 


for (i = 0; i < skp2 ; i++) 
/*® delete the old descriptor */ 
fscanf(tc,"']d",é&num1); 


prim(iout, ant_desc); 

new_prim = primid; /* save the new primitive */ 
idinp(iout) ; /* write the new descriptor */ 
skpl = skpc - ra) - skp4 ; 

cp sim (skpt tc, t4 

skp = sym [out_s | .despos ; 

eee = skpc as Nee - skp 


ce de == 


filecount = 0 


td = fopen('"d: del£", ge 
t5 = fopen('"d: :temp5"', Ti 
tm = fopen("'d:modf", Be) 


ct 
Nh 
1 


= fopen cles :temp2", Ws \; 
sub2 = ant_desc +1 ; 

fos Boer, Ele Naas delays in DDF file */ 
epe mck 5 ; 
matgen(an _desc Foor 

for (i = 0; i < skp3; i++) 


fscanf(td,"]d",énum1) ; 


skp4 = skpd - skp5 - skp3 ; 
cP =sin(skp4, Ea, £5) = 
skpl = s me | out psub] del Os ; 
skpd = gs kpl - skp 
/* de ae ene modified ‘delays (if have) in SIMDATA */ 
lt ea {= Q) 


ioe 


eta Cemine = 
att _del(old_ ecey 


fclose(td); 
fclosetts)- 
fclose(tm) ; 
fclose(t2); 
/* restore the used files 


os 


td = fopen("d:delf" ,"w"! 
t5 = fopen Nd:temps" "rh, 
tm = fopen('d:mod£", see 
t2 = fo on vals temp2", ioe 
sco ; 
fcopy t2, a 
fclose(td . 
fclose(t5); 
fclose(tm); 
fclose(t2); 
Eee cele 
fclose ; 
tc = fop Be :descf", ree 
t4 = fopen("d:temp4" ,"r"' 
fcopy(t4,tc 
fclose (te); 
fclose(t4 
3 
| Ke wen nnn eeere------ END REPLesseeeese cree sesceseccesescesesec=se * / 
[ RRRRKKRKKKKKRAKRAKRKKAKKAKKR KKK KKK KKK RARER KRKKKKRKK KKK RK RKKRAK AK 
~ 
: CP_SIM SUBROUTINE * 


* 
KAEEKKAKKKKKKKKKKRKKKKKRKRKKKKRRKKKKKKRRKKRKKRKRKKKKRKKKRKKAKKKKKKAEKKKKRKKKRKKAKRK 


/* copy the file until the point desired, controlled by the skip ah 


/* counter 
cp_sim(code,rx,ry) 
int code; 

oes Arg, *ry ; 


ine 2; 
for (4 = 0; i < code; itt) 


fscanf Bs "yd", &num1 ) ; 


FORINE 1g i pnumt § ; 
eee ry); 
} 
[Ken------------------ END CP_SIM--------------------------------- */ 
[ RRAKKKAKKAKAKKRAKKRRKAKKKRAKKKKKARAKKKERKRKKKKERAKKKERAEKKRRKK KK RERKKK K AK 
k 
z NEW_SIM SUBROUTINE g 


A NARARERRRKRR RAR RRR ARRARERRARRA LARD OTA 


/* copy the INITI and the PRNT files 
new_sim() 
nt 
filecount = 0 . 
/* copy the IPT file 
skp = 9 “~(ordsinis ae 
for (i-= "0; 1 < skp, i++ 


fscanf(ti,"]d",&num1); 
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i 


i 


fprint£(t3, we " num); 
dvance(1,t3); 


filecount = 0 ; 


/* copy the PTT file */ 
copy_sim(tp,t6); 
[keo------------------- END NEW_SIM-------------------------------- */ 
[ RRRRARKARERKRERRRERK RRR ERK RERK RRR RER KERR RER KEE AEE RR ERE ARERR A 
“ 
: COPY_SIM SUBROUTINE : 
NMDA 000A AGAERARARARARSSRARRAE REAR RR RRA AKA / 
/* copy the PRNT file */ 
popy- 3+ —Sim( rx, ry) 
ary ; 
oat il, Jj, codel; 
/ eeecOoy taesril f£r1¢ ag) 
mor (1 = 1- i < ord_pri; itt) 
for (j = 0; j < val_sym; j++) 
oe ¢symt(3] .pri_num == i) 
codel = symt[j].pri_val ; 
break ; 
} 
mdy_pri(codel,rx,ry); 
chgend(0, Exe ty) : 
ecount = 
[Re-nnn--------------- END COPY_SIM------------------------------- */ 
[RRRKRRAKRRKERKERARKRR KAKA RARE RRR RRR KER KERR RR ERERKER RRA 
: BDREAD SUBROUTINE , : 


AKKAKKKKKKKR RR RE RR RRR ERERRRERERRRER RRR RRR RRRRERERERERERRERREE | 
/* This routine reads the block delays for a given function name */ 


Bee ct at 
char s/[8] ; 


eee, J, numl, X, vy, W, 2, il ; 


FILE *ri1_; 
char p[8] 
rl = fopen("'d; sbidei" ,“r") ; /* block delay file */ 
eee ------------- Seeks tec GGL Lecomte Cg ee Re ee er eee im a 


for (1 = 0; i < maxouts; i =i t+ 


for (j = 0; j < maxouts; j = j + 1) 
panat ti] ta] = -l1; 
fdmati{ijij}] = -1 ; 
} 
[Rewwn nce er ee crnnnn-- read default block delays----------------- x / 
ee Pls iP); 
while strcmp (py “END") [= 0) 


escant(ri, i &numl) ; 
for (il = 1; il <= numi; il = il + 1) 


fscanf(rl,"Jd Jd Jd Jd",&, &y, &w, &zZ) ; 
201 


if (stremp(p,s) == 0) 

‘Fnat Le] [ 

if (stremp(p,s) == 0) 
br 


ea : 
fscant(ri, “so 


tcloseiu.) 


N= 


e 
f 
f 


[Rewnnnoe------------- END BDREAD--------------------------------- */ 

[ RERKKKKAAKAKAAKKAR AKA KAKA KKK KAKAAK AK KAA KK AK KKK KKK RAK AK RAK KK RAR 
ve x 
: UPFAN SUBROUTINE : 
KAKAKAKKAKAKKKAKAKKAKKKAKKKAKAK ARK KAKKKAKKKKERK KEKE KKK KAR KARA A / 
/* update the fanload of the gates */ 
epee coe 

char code[3]; 


{ 
Tibea, ee? 
for (j = 0; < sym_count; a 
ie (stremp(code, symt [3] -name == 0) 
reak; 


k = symt(}] .funcno ; . 
for (1 = 0; i <_normcount; i=i+1) /* £ind name in norcue 
alge ASE EOD. NOE oma Oc ey == 0) 
reak? 
if (i < normcount) /* if over ride is used for norm load */ 
symt(j].fanld = symt[j].fanid = NOt eh) ann cla | 
else . ‘XK use default value from prim. lib */ 
symt[j].fanld=symt[{j].fanld - primt[k].normld; 


[ RAKKKKRKKKKAKKKRKKKAKAAAKKKKKKAKAAKKAAKKAKAAKKKKAKAKKKRKRKAAKAAKKAARARKKRKKK KA 
* * 


; MDFYFAN SUBROUTINE , : 
KAKKKAKAKKAKAAKAKAKARARKKAKAKAKAKAK AK RK RK AKA RAKARAKAKEK ARK RARER / 
/* modify the fanload of the gates x / 
eas 
int i 
fon (i =) Oa num ea) ee 
ai { See ee oe ee oe ana! == 0) 
reak; 


lout =i ; 
/* modify the fanload of the gates that are input */ 
/* of the gate being modified a 
upfan(inptab[{iout].inpl); 
if (inptab[iout].inp_num > 1) 


upfan(inptab[iout].inp2); 
ue Pee een ee 22) 


upfan(inptab|iocut| lines). 
if ANSCEb SunCom Sop 


upfan(inptab[iout].inp4); 
it MAB Cob Ta baeT aie: > 4) 


upfan(inptab[iout].inp5); 
iP Cinpeab (aout - aap nun > 
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upfan(inptab[iout].inp6); 
ci Te alee we pcg aes > ) 


upfan(inptab[iout].inp7); 
ie Hine cet Ueueaikoe nan > 7) 


upfan(inptab[iout].inp8); 
if URE Isc h aspen SG) 


upfan(inptab[iout].inp9); 
iF eee ay senor > 9) 


upfan(inptab[iout] .inpl0); 


} 
} 
} 
} 
} 
} 
} 
} 
[ko=------------------ END UPFAN---------------------------------- */ 
[RRERRRKEKARARKARKERERARKAR ARAKI KR KERR EERE REAR ER ERK EKER AR AIR A 
x * 
: DLT_DEL SUBROUTINE z 
KARAKKKKKKAKKAKKKKKERK KEK RKERK RRA K KKK ERA ERR KK EKER EKEREK EKER ARR | 
/* delete the modified delays (if have) from the MODF file R / 


dit_del(code) 

int code ; 
tee, 3, Kk, lL, m ; 
skp = 0 ; 


es * / 
/* delete the’ code for the modified delay from the {DF file */ 
for (1 = 0; 1 < indexl; i++ 


ve fete t]).dsc_nb == code) 
sarees Ela as 


for (7 = 0; j < del tab[i].val; j++) 
Pog Ue arent : 


/* verify if the gate ae in the DEL table. If 
) 


skp = 0 ; 
else 
skp = skp + del_tab[i].val ; 

Se 
. alae 
a (i < indexl) 

ier 1 i | 

1f del_tab[i].dsc_nb == code) 


ers (j < indexl1) 
j} +1; 


rae We 
if (del_tab[j].dsc_nb != code) 
break; 


2 


K-= <}-- 
/*® update deltable a 
for (m = j; m < indexl; m++) 


del_tab[k].dsc_nb = del_tab[m].dsc_nb ; 
203 


del_tab[k].typ_num=del_tab(m].typ_num ; 
tab(k].num_ipt=del_tab[m].num_ipt ; 
tab[k].num_opt=del_tab/m he Nopita- 
sod tab : .val = del_tab[m].val ; 

+ 


© 
é 


} 
indexl = indexl - l ; 
on 
1 = 11 
a 
l=0; 
L=i¢+il1 ; 
cp_sim(skp,tm,t2); 
[Kee-ee---------------- END DLT_DEL---------------------------------- * / 
[RRARKKRRARKKKRKAKKAIK AK RK ARAKI KIRA AIK ARIK A AEA I AI I AAR KIKI AR A 
Xe 
‘ MDY_PRI SUBROUTINE _ 
HARAREKARAR REAR RRR RRRAAAAARRAREAAR TARAS AA lc 
/* modify the PRNT file % / 
mdy_pri(code,rx,ry) 
ime code- 
pee Ary, Ary ; 
tem: 
char Z; 
m= 0 ; 
aha (m < code) 
poeen a "] d jd jd", &numl , &num2, &num3) ; 
fprint eas ]ad Jd Jd ",numi,num2,num3); 
Z = getc(rx) ; 
Z = getc(rx) ; 
Paes ZeLy: 
at J yi 
avarice. ry); 
I 
Escant(r Eo }a Iq. Ja", &num1 , &num2, &num3) ; 
forint ey, Ma fa }d°" numi,num2,num3) ; 
fadvance(3,ry); 
[k-------------------- END MDY_PRI---------------------------------- */ 
[RERKKKKRKAKKK AK AKK RK AKA AKA AK AK ARA AKAIKE AK AAR ARIK ARAKI RAR A 
® 
‘ FNDDEL SUBROUTINE * 
a 
AHAAKKAAKAARRRER ERE R BRR RRAAAAN BREA READ AED Scala 
/* verify what delay will be modified xy) 
fnddel eode) 
Ine co 
/* rise or fall delay ? * / 
cee ay 
ind_token( 


savtoken = toknn ; 

templ = savtoken ; 

if (delimiter != 6) 
error(29); 


/* what input ? * / 
getid(rp,33); 
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parl = atoi(token_buf) ; 

parml = primt lb 

parm2 = primt[primid 

if (parl > arm ) 
error(39); 

ae (delimiter oe) 
error(31); 


etid(r 7,3 
par? = atoi (token mbut)> 


if (par2 > parm2) 
Se eor (404; 

etid(r 
Aum = 203 token buf); 
if ((code == 
_. error(43) ; 
ae f code == 

(delimiter != 2 

Baro S 


ar 
sa 


/* what output ? 


/* read the delay value 


e 
f 


savparl 
savpar2d 





----------------------- END FNDDEL------------------------------%/ 
[RRARRAKERERRRKRKRKERERR IRR RKRK KKK KKK IK RARER RIKKI ERE 
ok 
f CHGDEL SUBROUTINE 
MRM eiNaneee a. porn R CAAA ER ATLA ERAEARARARARAR AHH RII / 
/* this routine changes the MODF file x / 
ot 
ent i, J, peers 
Bie an 0 
filecount = 0 
tm = pee a: mode" , re at 
t2 = fopen('"d :temp2", gt. 
if (num == 0) /* return to the default values: */ 
/* delete the code from MDF file % / 
for (i = 0; i < indexl: i ++) 
ix and update DEL table * / 
if ((del_tab[i].dsc_nb == target) && 
del_tab[i].typ_num == templ) && 
del_tab i snum_ipt == peu 5& 
del_tab{1ij}.num_opt == savpar2 
ep simi skp, tt tm, ae 
or S. del ee .val;jtt) 
eeenecay "ya", &numi ) ; 
skp = ; 
m= 1; 
aos 
fo oa j; k < indexl; k++) 
del_tab{m].dsc_nb = del Tea -dSe.nb: 
del_tab[m].typ_num = delI_tab .typ_num ; 
del_tab/{m].num —1pt = del_tab[k].num_ipt ; 
del_tab[m]|.num opt = del_tab/k].num_opt ; 
del_tab[m].val = del_tab[k].val ; 
No=—lhod 1. 
} 
1=i- 
indexl = {ndexl - 1; 
index = index - 1; 
else 
skp = skp + del_tab[i].val; 


.numpar 
outp ; 


. 
e 


ar 


a 


0) && (delimiter != 2)) 
1) && aoe != 1)) 








205 


} 
Cp _sim(skp)tmeece 
ande =a : 


else /* modify delays already modified */ 
for (i = 0; i < indexl; i++) 


if ((del_tab .dsc_nb == tare eee && 
del_tab .typ_num templ 
del_tab : enum_ipt savparl) “56 
del_tab enum_opt savpar2) ) 


sim se EM tana: 
del wtab[a] .v al -1 =; 
(k oO; < aes 


fscanf(tm, "\d " &num aoe 
Ase ie (t2, AS. i »numl 
advance(1,t 








es 


ee WT 


See ae "7d " num); 
scanf(tm 43), i /snumt ) ; 
escaneueN 

endf = 1; 

skp = 0; 


else 


{ 
} 
cp_sim(skp,tm,t2); 


skp = skp + del_tab[i].val ; 


skp = 0; 
if (endf == 0) /* insert new delays * / 
1f (templ == 10) 
rfdel(0,parl,par2,t2); 
else 


{ 
rfdel(ij earl carzpe2y. 


ed 


gclose(t2), 
fclose . 
ae fopen ("di temoZ! ane 
tm = fopen("'d:modf", Nyylt) 
Peooy (t ptm) ; 


Ecloss( tm 
/3 ----------------------- END CHGDEL------------------------------ */ 
| RHIIIIRAR RAR SIA BR ERR ERR ABE GRRE aaa 
; CHGINIT SUBROUTINE ie 
RAKKKAKKRREK KKK RERRRRRARKKKKRERA RK RRRERK EK RKAREREREKARERRRRERRR / 
/* modify the initialization of the internals * / 
chginit() 
intei 


Eieeount = 0; 
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m= fopen<"d:initi", Aen 
a =mEODenw cd: LeMmpsi 7. Ww . es 
oo ini == 1) /* no previous initialization x / 
if (num != 3) /* insert new initial value * / 
See TS ae a1 23024025 Zoe) 


fadvance (6, t3) 
Pipe op "Ig § 59 Jd ",target,num) ; 
dvance 


erat (aon -ini_num = 1 ; 
ord_ini = . 


else 


aletoyey Ceol ac) 


else 
if (num == 3) /* delete initialization */ 
ake ae {= 0) 


=" (posit, —) lj 
ae = ae. as ~ ~ posit - 1) *9; 


ep aenteke, Cs Epo 7 


anit) 
scanf(ti, 8; ey 
if (posit == 1) 


Bpeineicrs, “2Oeei. |) 
fscanf(ti,"]d ]d",&numl,é&num2) ; 
fadvance(2, ES 

for (i = O: i <7; itt) 


fscanf(ti, Nya, &n um1 ) 
Eanes (t3, qe" i! TN 
dvance(1,t 


skpl = skpl - 9 ; 


epesin(skpl, t1 es): 
symt symid]. ini_ num = 0 
for (i = 0; i < val Sym} itt) 
1£(symt [3] , ini_num cad 
t{i]}. ini_num = symt[i].ini_num - 1 ; 
ord_ini = ord_ini - 1 ; 


else 
PCOpy (id cs)on- 
else 

ae /* if is not the first descriptor */ 
ete pease t= 0) /* in the file * / 


skp = (posit - 1) * 
econ = occk ie - eee -1)*9>; 


C —Sim(skp, tele oes 
ea Bt ic 8; itt) 


fscanf(ti, Hyde, &num1 ) ; 
fprintt(t3, " num) ; 
fadvance(1,t 


fscanf(ti, Ny dn, aE 


eeEene (¢3, Ae " num 
dvance(1,t 
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cp_sim(skp1,ti,t3); 


else 
skp = (ord_ aoa - 1) kg; 
cp_sim(sk t3) 
DEInte ter 26 22 33 24.25 26) 
fadvance(6,t Sy) 
EpEamee\ tay me 37 Jd ",target,num) ; 
fadvance(3 
symt(symid}.ini_num = ord_ini ; 
ord_ini = ord_ ini +1; 
} 
} 
Fe TSeeNETN 
fclose(ti) ; 
ti = fopen("d:initi", ee 
£3 = fo ant Va: tempo rs 
ECOpyA tse 
gelose ts): - 
fclose(ti) ; 
jk sn Se a oe END CHGIN Teese eee erereceecrcscecerererc= x f 
[ RERKAAKAKKKKAKARK RAR RAK ARK RK RRR KKRKKEKKRAE KERR RAE ERE RAK IK 
~ 
- CHGEND SUBROUTINE - 
RRRRRRRRKRRRR KARE RERKKKKK KKK KKK RAR ARERR RARER RRRER ER ERERERERER / 
/* this routine modifies the PRNT file | 
eae code ,rx,ry) 
FILE RPE, Rry ; 
fprines| oid a }q ja", &numl1, and yng) 
fprint Mey ned Jd ee num2 
scanf xy ,&n 
1 CEO ee == /* delete printout * 
numl = an -~ 1; 
if (code == "2 /* insert printout */ 
numl = num eed, ie 
peta Atay 1a) " mum); 
Seales x, a" snuml, ae 
forine iy Na }a° " numl,num2 
fadvance ( 
fadvance(5ir9) 
yk eeeeceeseeeo= ees eeeee=-= END CHGENDe]<-- 0332020080000 00822 =2--=--——  / 
[ RRRKAKRKARAKKKARIR AK AKA K KK RAIA RAK RIKKI AKI R IK KIRK RK RK KKK ERIK 
. 
: ERSPRNT SUBROUTINE 3 
RAKKKKAKKKKRRRRRER AR RERK ERK RARER KKK KRER ARR RR RRR ERK RERERRERERER / 
/* this routine erases a printout from the circuit aif 
ersprnt() 
THe Kael 


Le Gearaccan {= 0) 
for (k = 1; k < ord_pri; k++) 
for (1 = 0; 1 < val_sym; 1++) 
if (symt{1].pri_num == k) 
m = symt{1l].pri_val ; 
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break ; 


ed 


1 Ne target) 
Oe ri(i, ED Eo 
ie a == target) 


Bares (mn < m) 


Eee ary so) jd jJd",é&numl,&num2,&num3) ; 
getc(tp 


: gete( ep 


? 


n het. - 
} 
fscanf(tp,"Jd Jd Jd",&num1,&num2,&num3) ; 
lee yk > target) 


n= 0 : 
While (n < m) 


pocane ee i Ja", uml) ; 
BOY ite co, qt TRE 
fscanf(tp, ie . ,enum2 ) ; 
num2 = num2 i ; 
ecant (tp, x ld “ num2); 
Ss 


Seem "Td", &num3 
SpCante (eee ‘Jd "num a 
z = getc tp ; 

z= Se Ie 

putc(z 


De 
Por inte (te. ae 
poeyouce a t6); 
n=nt : 


} 
pscanet( tp, Jd, &num1 
EP Bante Bay : mn 


fscanf( tp i snum2) 
num2 = nu 
Eprint# (to, ig I ee 
pee em uel &num3 ) ; 
forint 6, ie i. pnum3 5 ; 
pce Re Cy t6); 


symt[1] -pri_ num = symt[{l].pri_num - 1 ; 


} 
ord_pri = ord_pri - 
a i =e) ene ea of PRNT * 
chgend(1,tp,t6) 
else 


EGopY (tp, £6) ; 


3 a ---------------------- END ERSPRNT----------------------------- * / 
MMMM L OCCA LAGG Ankanae *AAGRR AT ARRARRARARKARRAAKAAEA 
E INSGATE SUBROUTINE : 
II III RII III 

/* this routine insers a gate in the circuit “at 
insgate (code) 


int code ; 


mAtel, j ; 
/* save the original values of tables */ 
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old_ptr = dptr; 
old_sym = sym_count; 
old_val = val_syn; 
old_ipt = inum ; 
old_del = indexil ; 
desc_old = desc_no ; — . 
_ /*® verify if has more than one insertion oy), 
while (delimiter != 
arseid(maxkey) ; 
a /* update tables * / 


if waleeum == sym_count) 
update(-2,sym_count) ; 
desc_no = desc_no +1 ; 
sym_count = sym_count + 1 ; 
val_sym = sym_count ; 

else 


Bor = sym_count; i > val_sym; i--) 


1 = Loew ; 
strcepy(symt[i].name,s Pen e 
symt{1].descno = symt{[j}.descno ; 
symt{i|.funcno = symt SLURENO 5 
symt{i|.fanld = symt[ eo eaailel ; 
symt{i goose Saat .despos ; 
symt!i|j.delpos=symt[j|.delpos ; 
SYMC || da) eLALINUM=S ye elie eeu 
symt{1}].pri_num=symt|jJ.pri_num ; 
symt[1].pri_val=symt[j].pri_val ; 





} 
update(-2,val_sym) ; 
val_sym = val_sym + 1 ; 
sym_count = sym_count +l ; 
desc_no = desc_no +1 ; 


hew = new +l; 
end = 0; 
parseid(4); ; 
* make the insertion in the tables and in the files “i 
while (end == 0) 
ante (new != 0) 


filecount = 0 ; 


tc = fopen("d:descf","r"' 
t4 = fopen(''d:temp4", "wi! 
td = fopen("d:delf","r"') 
Lo) = bOpen "d:tempS", "will ; 
idout(); 


en tens f= 0) 


error(0) ; 


break; 
a ecuy inptabfinum].iname, savbuf) ; 
Poe eer ts sees Inserting Js\n",savbuf) ; 
cp_sim(skpc,tc,t4); 


yaks x insert new descriptor in DESCF*/ 
prim(inum, dptr); 

idinp(inum) ; 

skpe = skpc + symt[valact].despos ; 

new = new -_no_new ; 

inptab[inum].ifin = 1; 

ee 

filecount’, = 08 

cp_sim(skpd,td,t5); 
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/* ae default delays of new desc*/ 
Bats eae sel) ae 
S = s valac elpos ; 
skp2 = shod * SKpZ i 


« 
‘ 


felose(tc); 
fclose(t4); 
fclose(td); 
acco Es ae 
_sym = O _sym + no_new ; 
old_val = old_val + no_new ; 
old_ptr = ed + no_new ; 
restore the files * / 
tc = fopen 4, descf£","w"'); 
t4 = fopen("d:temp4","r'"! 
td = fopen("d:delf" ae 
t5 = fopen(''d: temp5", we \; 
ue tole: 
fcopy(ts5 td ; 
folose(tc 
fclose(t4 
fclose(td) ; 
fclose(t5); 
if (code == 0) 
if (end != 0) 
error(l) ; 
break; 
Pec) 
9 
end=1; 
} 
} 
js Se ee ee ee ee ee yt me END INSGATE erro cern rr rrr rrr rrr terre * / 
[RERERKRKARKARERKARRERKAK KAKA KER KER KR RARER KER RRR KKK ARK ARK ARK KK 
* we 
; CHGINP SUBROUTINE 4 
RARKRKK KKK KIRK ERK KKK RRR RRR IERIE IIR IRAE RIKI RR 
/* this routine inserts an input in the circuit Sy 
chginp() 
ie, jj ; 
/* verify if has more than one insertion * / 
pete (delimiter != 2) 
filecount = 
tc = epee :desc£", eng! 
t4 = fopen('"d:temp4", "w'! 
parseid(maxk ey); 
Diol inserting input Js\n!'',token_buf) ; 
update tables x f 


got, At = sym_count; i > 0; i--) 


ae sl: 

stre ij.name,symt[{j].name 
trepy(symt[i] 

symt[1].descno = symt[} -descno : 
symt{i}.funcno = symt|[j].funcno ; 
symt/ij.fanld = symt[ i fanld ; 
symt[i].despos= ssn ta .despos ; 
symt{1}.delpos=symt -delpos ; 
symt{1 


»ini nnun=synet eini_num ; 


symt[1!.pri_num=symt[{j].pri_num ; 


eae 


symt[{i].pri_val=symt[(j].pri_val ; 


} 
t the values for the new input on the tables */ 

Sthe x s tPol name, token_buf) ; 
symt .descno = desc no; 
symtjO|.funcno = 0 ; 
symt|0O|.fanld = 0 ; 
symt{O|].despos = 11 ; 
symt{O|.delpos = 0 ; 
symt{O/.ini_num = 0 ; 
symt 1. -pri_num = a ; 


ere tg épranivail 
for €a+= 0; i < dptr; ir) 
asec dnum = desct{i .dnum +1 ; 
/* put the code for the new input in the) DCF fale 73 
code_input(desc_no) i 
cp _sim(skpe,tc,t€4) ; 
Sate = skpc + 11 ; 
_sym = val_sym + 1 ; 
Se count = sym_count + 1 ; 
desc_no = ag —no+l ; 
fclose(tce 
fclose(t4 
tc = fopen( "a :descf'', nent 
t4 = fopen("d:temp4","r"' 
fcopy(t4,tc) ; 
setae 
fclose(t4) ; 


[ RRRKRKKKRKKAKAKKKAKKAKKAAKRKKK KKK KKKAKAKKKAKKKAKKEKKKKKKKKKKKKAKKAAKKAKARKK 
* 


‘ DELGATE SUBROUTINE | _ 
RA AR RI ZIR SIR IR IOTII A ATI INC ATR EDL a 
/* this routine erases a gate from the circuit x / 
delgate(code) 

int de ; 


Eo donee. 


ae (delimiter != 2) 


/* until all deletrons begdene * / 


agtad (rp; 230i 
ind token ( 
/* save the values of the genes x / 
/* that are eae deleted from */ 
/* the tables 
for, te = 0; i < val_sym; itt) 
(stremp(symt [7]. name, token_buf) == 0) 
ee 
del_sym = 
old_ cane = symt | [del_ “BYR: sfuncnow: 
ease token_buf 
eo = 0; 1 < inun; i++) 
if (strémp(inptab[ iT. »iname,token_buf) == 0) 
brea 
del _ipt_ = i; 
for Ae = 0; i < dptr; i++) 
{desct(i). ~dnum == del_sym) 


reak 
del_dct = i; 
mabye ey 
= fopen de desc fC ritey 
t4 = fopen("d:temp4", "w'') ; 
td = fopen('d:delf" riety 
t5 = fopen("d: :temp5'', ie \; 
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Epe-ecopen( d-prnt", ah 

t6 = fopen("d:temp Gil yl j; 

tm = poneD "qd; ace as 

f2 = £ open ma :temp2", Nwi} 

ee oor Deleting ]s\n", symt[del_sym].name) ; 
skp ; 

skp5 = 0 ; 

oor (1 = 0; 1 < del_sym; i++) 


sk + symt[{i].despos ; 
Sen = eae Senthil peteee ; 


Ms delete the descriptor from DESCF * / 

filecount = 0 

cp_sim(skp, ECE ae 

tot_val = peta: sym]|.despos; 

del_val = symt[{del_sym -delpos ; 

for (i = 0: i < tot_va i++) 

fscanf(tc, "Jd" &numl 

skpl = skpc - tot_val - ékp ; 

skpc = a ca. tot _val ; 

skp2 = val 

en. ciel. Ec. £4); 
pe delete the default delays of deleted a 
al gate from DELF */ 

filecount = 

Cp Suen (td, o 


for ps i++) 
gscane (td, ia, ae 

skpl = sk pe - skp5 ; 
skpd = en “3k 
“Ate, td ie 

delete the modified delays of the % / 
I desc. (if have) from MODF and * / 
/* update deltable 
filecount = 0 
if (indexl != 6) 


rget = symt[del_s descno ; 
Sit oder (taraet) me 


/* delete the initialization values of et 
/* desc. (if have) from INITI and 


/* update symtable *) 
me(ord ini {t= 1) zee 
osit t{[del_s ini_num ; 
Piieeatnt: = cs ym]. 
num = 3 
chginit(§ ; 
8 delete the printout of the desc. * / 


* (if have) from PRNT and update * / 
/* symtable x / 
filecount = 0 
target = symt [de1_ sym].pri_num ; 
ersprnt() ; 
fclose(t 
fclose(t 
fclose(tc 
fclose(t4 
fclose(td 
fclose(t5 
fclose(tm 


fclose(t2 
/* restore the files * / 
Fopenwaedescr' , "wil). 

fopen("d:temp4","r'') ; 

fopen('d:delf'', oe 

fopen('"'d: temp5", a ala 


=e “e@ “a “ses “OQ WS “Oe WE 


(tT 
Ao 
Hou a 


ge 








eB = fopen( "deprne ae 
t6 = fopen("d: emp6"', eee 
= fopen("d:modtf'', alt) | 
£3 = fopen("d: :temp2"', pil 
fcopy(t4,tc) ; 
fcopy ts, tae 
fcopy(t6,tp) ; 
Ecopy ee tm) ; 
fclose(tc); 
fclose(t4); 
fclose(tm); 
Eclose(t2); 
fclose(td); 
Eclose(t5); 
fclose Ep : 
fclose(t6); 
/* update all tables * / 
olddel_s = del_sym ; 
del_sym = delosym + 1; . 
for (1 = del_sym; i < sym_count; i++) 
eee 
strcpy symt [3] . -name,symt[i].name); 
symt] escno = symt Hf .descno; 
symt|} 7 .funcno = sym funcno; 
symt[{j]|.fanld = ee fanld; 
symt{j|.despos = symt[1 .despos; 
symt{j|.delpos = symt{1i|.delpos; 
symt [J -ini_num = symt[1].ini_num; 
symt{j}.pri_num = symt{1]}.pri_num; 
symt|}].pri_val = symt[i].pri_ val; 
sym_count = sym_count - 1; 
delvdet = delat i. 
fore - = del_dct; i < dptr; i++) 
5 i - 
strepy (desct( 4] SenUIEL:, jeter ee 
LE (ceseupa |: anh > oldde yu 
a SEE dnum = desctfiy.dnum - 1 ; 
3 
eee omcncn = desct[{i].dnum ; 
dptr = dptr =e 
del_ipt = del Sipe ee 
if (del_ipt <= inum) 
eee = del_ipt; i < inum; i++) 
J=i1-1; 
strep py inptab[j]. iname, EEE aes . iname ) 
inptab[j].inp_num = inpta inp_num ; 
SENCDY inpta Jietnp lL, ae airotnpd ee 
strcpy(inptabi|]/ .1np2,anptab eines), 
strcpy(inptabi ji} .inp3, inpeaeis | ines) 
strepy(inptab[j].inp4,inptab/i].inp4) ; 
strepy(inptab/]/].inp5, inptabim@i inp je, 
strepy(inptab| 7] .inpG,, Inpeabiar inp oyas: 
strepy(inptab[jJ}.inp7,inptablij.inp7) ; 
strcepy(inptab[j].inp8,inptab[i].inpS) ; 
strcpy inptabhid -inp9,inptab|1i].inp9 
strep PY inptab|[j].inp 10,in tab{i]. inp10$ 
inptab[j].ifin = Teese 1 Pane 
inum = inum - 1; 
val_sym = val_sym - 1 ; 


at code == 0) 
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if (end == 0) 


Bens r a OMe) 
repl(l); 
els 
error(1); 
yi wm ene eeeeeree-- END DELGATEcoow eter rere creer errr crrrrecc-- xf 
[RRERERERERRRERER RARER RRRK RRR RARER ARERR ARERR RK RARER RRERR ARR AEKERER 
# 
c ERSINP SUBROUTINE ps 
KRRKRRKR KKK RRR RRR RRR RRR ER ERR RRR KARR ERARRERA REE | 
/* this routine erases an input from the circuit x / 
ersinp() 
ioc Ll, 3 ; 
/* verify if has more than one deletion x / 


a (delimiter != 2) 


filecount = 0 
tc = po ee a: descft'r') 


t4 = fopen("d:temp4", "w"! 
parseid(maxkey) ; 
Rigi i(... . deleting input ]s\n",token_buf) ; 
Bp eats tables 5)! 
ror a = 0; i < val_s Le ++ ) 
{strcmp (syme [7]. aonee token_buf) == 0) 
brea 
del _sym = i; 
skp = 0; 
for (i =0; i< oe sym; i++) 
skp = skp + symt[i i].des 


/* delete the a ecerantor from DESCF x / 

ep sim(skp, tc,t4); 
tot_val = symt[del_ sym -despos ; 
for (i = 0; i < tot_va i++ 

fscanf(tc, ")d", &numl 
skpl = skpe - tot_val - ékp ; 
skpc = skpc - tot_val ; 
cp sim(skp1, tc,t4) ; 
del_sym = del _sym +1; 
fos update the tables x / 
gor (2 = del_sym; i < sym_count; i++) 





jJ=i-1 
strcpy(s £64]. name, symt[i].name) ; 
symt [J escno = symt ai .descno ; 
symt|j .funcno = symt{i}.funcno ; 
symt{j|.fanid = Stee fanld ; 
symt[j|.despos=symt[1 .despos ; 
symt|j}].delpos=symt[1i}.delpos ; 
symt{j}.ini_num=symt[1].ini_num ; 
symt{jj}-pri_num=symt{i].pri_num ; 
symt[j].pri_val=symt[i].pri_val ; 
for (1 = 0; i < dptr; itt 


desct (if. dnum = desct [1]. dnum - 1 ; 
val_sym = val _sym - ; 
te count = sym_ eee alae 
tose ta}. 
fclose(t4 
Ee = = fopen("a: :descf", Pee 
fopen("d:temp4","r'!! 
feopy( ta. EG) = 
fclose(tc); 
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fclose(t4); 
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APPENDIX E 
THE PRECOMP PROGRAM FOR THE EDITOR 


[RRKKRARKRKAKKAKKKARRRR ARK ARK KKK RRR KKK KK RKRRKRKRKK RRR KAKA KRK KKK 


* 

* Precomp Program = 

. for the fe 

- Editor Zs 

& x 

* _ VERSION 3.1, 14 Apr 1987. * 

Zo Original version eve Thee under MSDOS and PCDOS by a 

es Julio Cesar Lopes de Albuquerque at Naval Postgraduate a 

: School. Use with EDITOR version 3.1. 
KARA AKAKKKKK AK RKAKK AKA KAKK KKK RK KKK KERR KEK EK EK RARER ERK RARKREKARK 
#include "\lc\stdio.h'" /*<stdio.h> in DOS 3.x environment Xf 
#define maxkey 30 /* maximum number of keywords if 
#define maxsym 500 Aen 
#define maxprim 100 /* maximum number of primitives. * / 
#define maxouts 32 /* maximum of 32 outputs per prim. */ 
#define maxnorm 50 . 
#define maxk 14 /* user options for the program * 
[ Kew wre crc erecrrcen- GLOBAL DECLARATIONS «9 -eee eee n= ene e--=se-- * / 
ee ne ee x / 
[Reeeee----------- DATA STRUCTURES--------------------------------- * / 


/* the names and meanings are the same from the EDITOR * 

struct sym_tab { 

char name[8] ; 

mieedescno, funcno ; 

i Land; 

int despos, delpos; 

Geese ln num, pri_num; 

ie Ori val; 


° 
c 


Struct desc_tab { 
char fun[3] ; 
int dnum ; 


e 
g 


struct norm_tab { 
char nom[8] ; 
int nmld ; 


° 
s 


struct prim_tab { 
Char nam[8] ; 
char namz[8] ; 
int numpar, outp ; 
int normld, fanout ; 
ant technology, overld ; 


s 


struct err_stack § 
char nm[8] ; 
int errno ; 
struct exp_tab { 
char fname[8] ; 


ak, 


int fnum ; 
struct namepair { 

char e_from[8]; 

char e_to[8]; 


, 


struct swapname { 
char sname(8]; 
int used; 


struct inpename { 


char iname[8]; 
Inc 1TnpenuM: 


char inpl/8], inp2isie 
char inp3(8], inp4{8]; 
char 1inpols)], inpeiey- 
Ghar Inps | So), Inpsiler: 
char inp9[8], inp10[8]; 
int ifin; 


struct tab_del { 


int indxy <dscinb, typznun; 
int num_ipt, num_opt, val; 


/ 


[Roane n ewww nnn nena nn acer naa en enna e258 88 nna a = ee * / 
[ Keecererrnecen-- STORAGE ALLOCATION+ «<<<<<<<-seseewea ses = <5 = 2s % f 
extern struct sym_tab Sune nee ey . 

extern struct desc_tab ee ; 

extern struct norm_tab nort[maxnorm]_ ; ; 

extern struct prim_tab Se OF Iota 

extern struct err_stack errt(S] ; /* Max Of@seernoms sper eeene 
extern struct inp_name SEEOgTE 

extern struct tab_del del_tab{[100]; 

extern int erreptr.- /* error table pointer (count) % / 

x for one. lanes x 
extern int desc_no , sym_count, symid ; /* desc_no = desc. countaa 
extern int dptr, descid, lim ; /* descriptor table indices * 

/* dptr = descriptor table cnt * / 
Gxtern int end, oOutpar: 
extern int savid[maxouts] ; 

SXLEMN ANC rSavpEIm, noshew- 

extern int savn[maxouts]; 

extern int matcount ; /* delay matrix count ee 
extern int delimiter, bb ; /* delimiter = delimiter type  / 

. /* bb = buff[80] index ace * / 
extern int rdmat[maxouts][maxouts], Sr ee maxouts] ; 

/* rise and fall delay matrices x / 
extern int toknn, err_count ; *k err_count = error count * / 
extern int normcount ; /* normtable count i 
Cxctern Iter ecount, /* poutcount used for debugging Waa 
extern int prinpflag; att /* controls pring of source 7 
extern int prim_count rimid ; * pa count = #0 rimitives */ 
extern char token_buf( 8] savbuf[8 uff[80] ; /* buff = 1 line % / 
extern char keyword[maxkey][8] ; x keyword table % / 
extern char key[max : /* key table 7 
extern int hashtable[10 1; /* the hash table | sy 
extern int hashcount; /* number of items in hashtable ® / 
extern int new; | 
Gxtern int) lime encdex tice wee, 

PXtern Int parm2 panies cancers: 
GCxCern Ant pal pane c Alp an le 
extern ant Savpanrz,. nun 
extern int valact, skp2 ; 
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= Lern 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


AKKKK 
a 


ee 
* 
RKARE 
pe Thi 
VX wil 


-— 


ou 
whi 


int savn[maxouts] ; 
FILE *rl ; /* pointer to input data file 
FILE *tl ; /* pointer to temp file 
Feu “tz. 
FILE *t3 ; 
FILE *t4 ; 
FILE *t5 ; 
FILE *t6 ; 
FILE *tc ; 
FILE *td ; 
FILE *tm ; 
FILE *ti ; 
FILE *tp ; 
BOLE “rp. /*® read posoeee to input data file 
FILE *sy ; /* symt table stored for edition 
FILE *de ; /* desct table stored for edition 
FILE *nm ; /* nort table stored for edition 
FILE *ip ; /* input table stored for edition 
FILE *dp ; /* delay table of the descriptors 
KRAKKERRKERKKERKRERRAKRRREKRREREKERKEAKRKAERRAKRRERRREKKRRKKRERE 
x 
IDOUT SUBROUTINE : 


RIK KAKI RIK KKK RAK IK KKK RR KEKE RIKER ERE RRR KARRI AR RRR IK 
s subroutine will vers fy what output or internal variable */ 
1 be used in the present case. */ 
() 
Bah = <1; 
ile (1) 
etid(r ; 
find, eee efi 
sircpy (avout, token_buf) ; 
oknn == 5) 7* if } found, end edition x / 
end=1; 
break ; 
if (toknn == 29) /* if # found, end this part x / 
end = 2 ; 
break ; 


if (toknn < maxkey ) /* left hand side should not be a keyw.%*/ 
eieror( 25 


outpar = outpar ce 
findprim() ; 
mec Drimid < Prim count) 

error (25) : output name is a Bomane af 
penta) 0) /* find the symbol table index */ 
if (symid >= 

/* save output indices in an array */ 
savid[outpar] = 


ymid 
savn[outpar] = ee cde déscno ; 


valact = savid[0] 


skp2 = symt{valact]|.despos ; 
eynt (valacty cats © = O° | 
. elimiter == 4) /* '=' should follow the output names */ 
reak : 
else 
if (delimiter != 1) 
error(31) ; /* ',' expected after each name */ 
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[RRKKKRKKKRKKKKKKAKRKKAKRRKARKARKKAARKKARKARKKAKRKKA KKK ARKARKAKKRKARKARK ARK 
* 


* 


IDINP SUBROUTINE 


* 
* 


* * 
RERKAKKKARKKAARAAKARARKARRRA RARE REA ARRAREARA 


/* This subroutine will make the scan of all the inputs that will*/ 
/* be used in a determined gate. x / 


IDINP (code ) 
int code; 


int savpa 
nie fwdb 
fwdp = 
savpar = 
no_new 
Savane 
vprim = 
strepy(sa 
while 


r, savinp ; 


primt 
rimt 


(Primi eaten pul) bon se func 
while all inputs have been pe aan 


| 


savpar != 


parseid(maxke 
Svcs aa 


savinp = 
findid 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


savinp + l 


e 
‘ 


0 


0 on on om fF W DN F 


See enumpar ; a number of inputs 
DEImid: .cuCcp. /* number of outputs 


/* save BE nea 
ion name/type 
0) 


) ; /* parameter of function 
if /* update inptable 


+ Bercpy(inptan| code eae 
: strepy(inptab[code] .inp2, token buf); 
‘ Sane y (inptab[code] . inp3, token_buf) ; 

rea 

: strepy(inptab[code] . inp4, token_buf) ; 
: strepy (inptab[code] . inp, token_buf); 
: stropy(inptab[code] . inpé , token_buf) ; 
: strcpy (inptab[code] .inp? ,token_buf) ; 
: strcpy (inptab[code] . inp, token_buf); 
: strcpy(inptab(code] . inp? token Bue); 
: strepy(inptab[code] .inp10, token_buf) ; 


'/* find parameter's location in the 


connect(0,savn, ce /* generate code and update fanld 
if (savpar == 1) 


if (delimiter != 5) /* ')' expected after the last arg. 


Crro 


savpar 


Rize 


= sa 
1f (savpar = 0) 


e 
4 


ar - lve 


if (delimiter != 1) /*, expected after first parameter 


ent 


Orcs 


parseid maxkey) : /* get next argument 


switch(savinp 


case 


0 


/* update inptable 
: ste y(inptab[code]. inpl1,token_buf) ; 


i 
case l : strepy(inptab[ code] .inp2,token_buf) ; 
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ae 
“i 


ae 


“a 


*/ 


case 2: ee a eee NS, token_but); 
case 3 : stre y(inptab[code].inp4, token_buf) ; 
case 4 ; strepy (inptab[code] .inpS, token. buf) ; 
case 5 : stre y(inptab[code] . inpé , token_buf) ; 
case 6 : ee y(inptab[code] .inp7, token_buf) ; 
case 7 : strep! y(inptab[code].inp8,token_buf) ; 
case 8: strepy(inptab[ code] .inp9, token_buf) ; 
case 9 


: strepy (inptab [code]. jinp le tokenebue )i- 
brea 


savinp = savinp + 1 ; 
if (savpar > 1) 


if (delimiter != 1)/* , expected after argument * / 
error(3l) ; 
else 
if (delimiter != 5) 
error(32) ; /* ) expected after last arg. * / 
Pindida() > ie find symbol table index for the i) 


/* input name 7 
connect(1, savn, msceyy /* generate code and update fanld */ 
savpar = SEE = ° 

fwdp = fwdp +1 ; 


Ls (outpar Pa) /* multioutput case */ 
outpar = outpar - 1 ; 
else 
if (savpar != 0) /* multiinput case */ 
gprintest £45 "1 1g 15 13 " savn[fwdp - LT desc —no} ; 
fprint£(t4,"1 jd 16 jd ", desc_no, savn|fwdp - 1]) ; 


fadvance(8,t4) ; 
ae act: .despos = symt[valact].despos + 8 ; 
savn fwdp | desc_no ; 

desc_no = desc_no +1 ; 


3} /* end if * / 
7 wa nn----------------- END IDINP--------------------------------- * / 
[RRKRKRKKRKKAKRKKAKARKARKR KARR RK KRERARKK AK RARIAKKEKAR ARAKI RK KAA 
rs x 
: FIND_ID SUBROUTINE * 


KEKKKKKAKKKKKKKKKKKKKKKAKKKKKKKAKKKKKKAKKKKKAKKKAKKAKKKKAKKAKAKAKKKAKAKKAKKK 


/* finds the symbol table index. An error Beecade is generated if*/ . 
/* the name does not exist * 


a. 

int i; 

for {i = 0; i < sym_count; i=i + x 
aon stromp(token_buf, »symt[i].name) == 0) 

reak ; 

if (1 == sym_count) /* name not found in the symbol table */ 
error(28) ; /* undeclared name * / 
symid = ie ; 
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symid = 1 ; 
js ooo ----------------- END FIND_ID-------------------------------- * / 
[ REREKERRRRRKRKAKAKAKAK IRR KIRIREREKREKKEKAR ER RRR ERA RERERERKAAK A 
* 
; FIND_PRIM SUBROUTINE A 


Teiisoieioiek:leieefekoi okie iotekoiok i a RI IIR RTA IOI ARO 
/* finds the primitive that will be used in the PRIMITIV.DAT file*/ 


Sean 
int oe 
forac pian count; i= i+ 3} 
at ( Ase en_buf,primt[i].nam2) == 0) 
break ; 
primid =1; 
[ Rewer ecco erccssrccc= END FIND _ PRIMe<eeseceeeesceeseccesesers ess % / 
[RRR IIIA I RIOD IIIT STITT NA TTT AEE eae 
* 
‘ OUTERROR SUBROUTINE ‘ 


KAKKKKKAKKKKKKAAKKKRKKKKKRKRKARKKKKKRARKRKRKKKRKEKRKKAKKERKAKEKRKREKRKKRKRKRRKKRRKKEKRKK 


/* This routine outputs all errors encountered in a line after x / 
/* entire line has been read. x / 


outerror() 


ne a. 
aie (err_ptr >= 0) /* if error count for a dine 1s >a a 
* print all errors encountered | 


qpemessagener Ole canes ; 
L1= 
err_ptr = err_ptr =. 


[kneo------------------ END OUTERROR------------------------------- */ 
[ RRKKKKRKKKKAKKRRKRKAKRRKRRKKAAKKRRKKAKARRRKK KKK AKKKRKKERKKAKAKRRRKKAAKK 
* * 
- ERROR SUBROUTINE a 


KRKKKKRERRERK KKK KK ARK RRRRRRKRAKEK RK RAKE ARER ARR ITI aere a 


/* This routine enters the error number and the name of the wrong*/ 
/* identifier in the errt (error table). The errors are printed */ 
/* after the whole line has been scanned. * / 


error(1) 
tite ee /* 1 = error number */ 
err_ptr = err_ptr +1; /* error count for one Jincwsa, 
errtiiere per imerenose= 4. - ; errno = error number * / 
etnec (en ele aacee nm, token SDuE ee, 
‘/*® copy name of wrong identi. 
[ Kewece ce crce creer en-- END ERROR <9 939839 $393 === = = * / 
[ RERKRKAKARKARKRKAK ARK RK KARR KKK KAKA KERE RK RIKI KK KIARA REAR 
J 
ERRMESSAGE SUBROUTINE a 


KAKAKAKAKKKKAKAKAKRARKAKRARARARARARKKEKKARAEK ARAKI RA RAERAERAKKKRARRREARKRK 
/* prints the message of error that corresponds to the error found*/ 


Z2 


errmessage(i) 


Pac 1 ; 


printf 
eee 


case 
case 


case 
case 
case 
case 
case 


case 


case 
case 
case 
case 
case 
caseé 


case 
case 


case 
case 


case 
caseé 
case 
case 
case 
caseé 
case 


case 


/* i = error number */ 


/* err_ptr = global indicating error table index */ 


11 
ti) 
OF: prince" 
Bese : 
i Beane 
4: printf (" 
break ; 
Sys prince ( | 
break ; 
Gee prants(" 
break 
7: print£(" 
break ; 
2[sy easy eal quiet a Gl 
break ; 
Zoe printer ( 
reak ; 
27: print£(' 
break ; 
Zee inne (| 
break ; 
29: printf(" 
break ; 
510g Weleshonaa a 
break ; 
Bi: prantr(" 
break ; 
SeempGine £ (| 
break F 
a3: printf (" 
break 
34; prints (4 
reak 
35: print£(" 
break ; 
Bon Drintine 
break; 
37: printt(" 
reak ; 
38: poe 
reak 
39; puso 
reak ; 
40; ane 
reak ; 
41; pence 
reak ; 
42; aso eee 
reak ; 
43; raintf(" 
reak 
44; print£(" 


ERROR 


'INSERTION' expected\n") ; 
'REPLACE' expected\n") ; 


'§' expected, ]s found\n'", 
errtferr_ptr]. nm) ; 
'}' expected, Js found\n', 


errt[err_ptr]|. nm) ; 


'INITIALIZE' expected,]s found\n'", 
errt[err_ptr].nm) ; 


'PRINTOUT' expected, 


fs Pound\n!, 
errt[err_ptr].nm) ; 


name Js is a_keyword\n'", 
errt[err_ptr].nm) ; 
count = ]d, >>EDITION discontinued\n",err_count) ; 


'=' expected after ]s\n'', 
errt[err_ptr].nm) ; 


Js is undeclared\n'', 
errt[err_ptr].nm) ; 


'(' expected after Js\n'"', 
Seer einen: nm) ; 


Js 1s undefined function\n'", 
errt[err_ptr].nm) ; 


',' expected after ]s\n'"', 
errt[err_ptr]. nm) ; 


')' expected after |s\n"', 
Beerere Seal nm) . 


unexpected EOF\n'"'); 
missing END\n"') 


incorrect # of args. on LHS ]s\n!" 


, errt[err_ptr].nm) ; 


in syntax, ]s unrecognized \n'', 
errt err_ptr]. nm) ; 


count = 10, >>Edition discontinued\n") ; 
= 0, ***END OF EDITION***\n"') 

lst DELAY index is > lim\n"); 

2nd DELAY index is > lim\n''); 

missing {\n!'') 

missing INITIALIZE\n") ; 

7. 

undefined function\n") ; 
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missing ' 


break ; am 
case 46: printf(" missing }\n'"') 
Bedi, neal 
case 47; pnee missing! jen): 
reak; 
case 49: ee incorrect # of input arguments in call\n"); 
reak ; 
case 50: SEI incorrect # of out arguments in call\n'"); 
rea : 


Shu COuUntC = Ga CCUM ts nam, 
if (err_count > 9) 


error(37) :; 

outerror() ; 

exit(0) ; 
/ tee ac eee END ERRMESSAGE----------------------------- */ 
[ RRERRRKAKRKRARAKRR ARK AKEKAR ARK AAR AK KKER ER ARK ARKERER KKK ARAKI A 
x x 
: PRIM SUBROUTINE 
KAKAKAKRKKAKA KKK AKA KERR AKA RAKE RRR ARR AKAKKK KKK KKRA KAKA RK RRR / 
/* verify what primitive will be used * / 


prim(codel, code2) 
int codel, code2; 


IMEe gy), 
/* savid{] saves symbol table indexes while savn[] saves desc. * 


/ 
/* numbers for output list names | a 
getid(rp,33) ; /* function name */ 
if (delimiter != 6) /* '(' should follow function name * / 
error(29) ; 
if (err_count == 0) 
if Coutpar 510) /* if # of outputs > 1, connect exten- a 


* Slen, polncens. 
for (j = 0; 3 < outpar? 9) = 3 49» 


tprint’£(t4, "1 jd Toeiee" saveton pce ; 
printt(t4,"1 |d 16 qd esau ate savn|0O]) ; 
symt[valact].despos = symt[valact].despos + 8 ; 
fadvance(8,t4) ; 
} 
findprim( ) 


if (primid >= prim_count) 


Findid() ; /* function name is a type */ 
primid = symt[symid].funcno ; 


inptab[codel].inp_num = primt{primid].numpar ; 
if (err_count == 0) 


Eprintr(t4,"33 jd “7 savn OT Bee ; 
symt[valact].despos = symt[valact].despos + 3 ; 


fadvance(3,t4) ; 
if eine rimid].outp != (outpar+l)) 
SrrOns Nae /* # of outputs should be as in table */ 
for(j = 0; j <= outpar; j =j +l /* update symbol table */ 
ae — /* and dese table a 
Syme | (Savi Glel P ye eunene = primid ; 
updesct(token_buf, savid[{j], code2) ; 
code2 = code2 + 1; 
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[RREKRKRKRKRKKRKRKAAKKRKAAKKRKAARKRK ARK RRR RRR RK KAR RK ARK AKA RRR AAR 
* 


* 
E STRCPY SUBROUTINE i 


KRAERKAKAKARKARARAKRKRKKAKAKAKAKRKAKARKKRREARKKRKARR RAK AKA K A KR K RK K 
/*This subroutine performs the copy from one string to another %*/ 


strepy(s,t) /* copies s=t */ 
char eS At ; 


while(*st+ = *t++) 


js Baua=--------------- aii) Gidg SSeS os aS S SSeS Sess ce= Se eee eaee */ 
ee EEA ee REE RAHARERRRKARE AAKRRARKKKE 
ye & 
: GETID SUBROUTINE i 


RARRKKRKKRKKRKRKKRKKRKKRKKRRKRKKRKRKRRKRRKKRRKRKRRKRKRKRKRRKRKRRKRKRRKKRRKKRRKRRKRKRRERKE 


/* This subroutine makes the search in the VOHL file to verify /* 
/* the next identifier that will be used % / 


getid(rx, ernm) /* finds the next id and returns it in token_buf */ 
int ernm ; /* error number in case of EOF */ 
FILE *rx ; 

Mite , C, flag ; 

flag = 0 ; 

Geiimater = -1 ; 


1=0 ; 
while((delimiter < 1 ) || (flag == 0)) | 
{ i lag = 1 when some non blank char is a 


/* read into token buffer iy 
c = fgetc(rx) ; 
butt(bb] = c ; /* buff is the 80 character buffer for */ 
bb = bb +1 ; Joepeinting the cntrre line after it 1s */ 
fmee( bb > 78) /* read. bb = index for buff */ 


if (prinpflag == 1) 
/* eet" l=e\n burt) o- * / 


bb = 0 ; 
switch(c) 
case ' ' ; delimiter = -1 ; 
prea; 
case ',' : delimiter =1 ; 
beeaks 
case ';' ;: delimiter = 2 ; 
break ; 
Base *:' : delimiter.= 3 ; 
break Ga 
case '=' ;: delimiter = 4 ; 
break ; 
case ')' ; delimiter = 5 ; 
Beak > 
case '(' ; delimiter = 6 ; 
break ; . 
Gase '\n': 1f (flag == 1) /* flag = 1 indicates that */ 
delimiter = 7 ; /*® some non blank character*/ 


buff[bb-1] = '\0! /* was read into token_buf */ 
u - = : 
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if (prinpflag == 1) 


/* Br EN ea ; print the line and 
/* output errors in the ah 
outerror() ; /* line if any. * / 
bb = 0 ; /* initialize line buff */ 
break ; 
case EOF = printr Cales\n buena 
error(ernm) ; 
error co) i: /* EOF error x / 
outerror( 
exit(0) ; /* abort the program * / 
break ; 
default : flag = 1 ; 
delimiter = 0 ; 
if (delimiter == 0 ) 
if (i <= 6 ) 
token_buf[i] = 
fet he ee tee 
, 
token_buf[i] = '\0! 
[Rewer rrc coor eer rre--- END °GET LD = << 9 9336 = = 3 9 8 ee */ 
[ KRKKAKRKAKAKKAKRK RK RK IKK RK RK RAK RK AK EKA K KKK RAK AK KIRK AR IR 
+ 
: FIND_TOKEN SUBROUTINE 3 
KRKKAKRRAAKARRRRERR RAR ARR RRE RE RRERE ARI RE RE HIARR REAR ERA RERRRRERE 
/* Token = maxkey if a nonkeyword name is encountered. It is =) 
/* equal to the index of the keyword in the keyword table * / 
suas _token() 
inte i . 
for (i = 0; i < maxkey; H ‘* sequential search */ 
ie eee (token_ buf, a ) == 0 
break ; 
toknn = i ; /* token = maxkey, if match ts not found ies 
[ Reece co roc erre-------- END FIND_TORENeoce* eseeesseesesceccesesese=== * / 
[ RRRRKRKAKRAKR KAKA AK AK AKA AKAIKE KAKI RIKI RRA IR RAK K ERI RAR IR 
~ & 
: FIND_KEY SUBROUTINE i 
RARRRKKKKKERERRERRR RRR KER ERR RERRRARR ARAKI ARERR RARER RK RARER / 
/* To verify what 1s the function that the user want to use yy, 
gee i i: 
gh ete 
for (i = 0; i < maxk; 1) /* sequential search */ 
at (stremp (token_ buf, E key [i] == 0 ) 
break ; . 
toknn = i ; /* token = maxk, if match is not found */ 
[Reece renee c ere n------ END FIND KEYeoeeees cr sr sett r tte rsssteesecec= * / 
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a 


[ RRERRKRAKRARKKRERAKKKRAKAKRA RAK KKK KKK AAA AKRRA KKK RAK AKKAKKKKKRKKK 
* 


x 
i: FCOPY SUBROUTINE : 
St ihacgn anAna A AAA LARK RAR A AAA AARAAAARAAR | 

/* copy one file in another ay 

rae Aer ww ) 

FIL AWW 3 
Pee : 
mile {(< = getc(rr)) != EOF) 

putc(c,ww) ; 

[ke------------------- END FCOPY---------------------- a----------- * / 

[ RRKRAKRARKKRKAKRKAKK KARR KERIKERI KERIKERI EKER RARER KER KR 
ok * 
: CONNECT SUBROUTINE a 
FRI IIR IK II KAA KIRK AKI KAKI I IRI IK IIR AIK RIAA RIAA AA RA A 

/* Circular list generation for the circuit. Previous list is a 


/* broken and new circular loop is made. 


connect (f, savn, ae 


at f /* is 0 or 1 */ 
ait savn{], fwdp ; /* savn has desc # of output names */ 
Mit 1 ; 
if (err count == 0) 
|] aww ww www weer e sen nnn nn-= update | a ad a ld dl ll aad * 


for 2 = 0; 1 < normcount; i = i ay PaaLindaname in nort | </ 

stremp(nort[i]. nom,savbuf) = 

rea 

me (i < hormcount) /* if over ride is used for norm load */ 
pcueymid) fanld = s vat faymial sfanld + nort(1)-nmid 

2 use default value from prim. ies * / 
syn symi anld=symt[symi anld + primt[savprim].norm 

yh t[ d] .fanld= [ d}].fanld t[ i zo 


eet az - " symt[symid]. a eed ; 
Beminmee(t4,"3 Id", pe symid}.descno) ; 

ave current pointer from the input % / 
Berantt(t4,"1 jd 8 14 ul ener .descno, gavnl fwap]) ; 
Beanet(t4,"2 jd 11 id " ie descno, 
Becinc’e(t4,"1 id 9 Jd ", Se Fado] ; 
printf£(t4,"1 Jd 12 Jd", savn[{fwdp], Soe 

/* complete the é- -list * / 

merant’(t4," \n''); 


symt[valact] . paoe = symt[valact].despos + 20 ; 


filecount = 
yk wer m ne eee eee ee---- END CONNECT es -s-seec sete esse seers ssesesec-- z / 
[RAEKKKRKAKRKKKRRKKKARRRKKARRK KAR RRK ARK ARKKARAKKKRRKKK RR AAKKKRKK KAR 
* 
- PARSEID SUBROUTINE - 


ee 6 AAAKARARAR AKA RARE RK RRRRRALERERRR AR RR RRR REA ERERERERERER / 


/* This subroutine verifies of what type is the next identifier */ 
/* that will be used. . 


parseid(i) 
fmt 1 > /* 1 = token number to be compared to */ 
Metad (rp,33) ; /* find the next identifier in 
EInd _token() ; /* find token number 
if (toknn == maxkey) /* check if name != eens) 


oe) 


{ 
findprim() ; 
L£ (primid < pramaceunt) 


error(25) ; /* keyword found * / 
if (toknn != i) /* identifier of type 'i' % / 
error(i) ; /* expected. * / 
[Rnaann---------------- END PARSEID-------------------------------- */ 
[ RERRKKKAKAKAARKAKK RK KARA AR AKA AKA AKER AKER ERR KKK RRR KRKA 
« * 
: FADVANCE SUBROUTINE - 
EO EE ER RE Re TEE I RE RR RR RR OR 
/* This subroutine advances a counter while doing the SIMDATA */ 
/*file to allow the change of line. * 
fadvance (numm, rx) 
int numm ; 
FILE *rx ; 
filecount = filecount+ numm ; 
if (etlecount ]. 22) 
filecount = 0 ; 
ee yt) 
[k=------------------- END FADVANCE------------------------------- * / 
[RRERKAKAKAKAKARKRKRKAK AKA AKKKEKEREREREREKR KERR RRR RRA KARR 
* ~ 
: STRCMP SUBROUTINE a 
HAKKAR RRA KARA AKA AK KKK K AKER KKK RRR KAKA KAKA ARAKI RAR RAK 
/* returns zero if string s is equal to string t */ 
g q g 
sa a 
eee Si ele 
LNG 1; 
Bs a a | 
Senet == tlt 
if (s{itt+] == '\0') 
return (0) ;:. 
return(s[i] - tfi]) ; 
[Renan n--------------- END STRCMP--------------------------------- */ 
[RRERAAKKKKARKKAKA KKK KKK RKKARAK RAK RAK RAKRAKRKK KAKA RAK RAK RK 
x * 
- IDSTRING SUBROUTINE - 
KAKKKKKAKAAKKAKEARK KKK KAKA RAK RAK RK ARK ARK AK RARRKK AKA KAKK RAK RARER / 
/* <IDSTRING> => id ; | <IDSTRING> id , * / 
IDSTRING (code ) /* code = 0 for inputs,-1 for outputs *) 


_ /* =2 for “Iintemmatcr 
while (delimiter != 2) /* delimiter = ; */ 
parseid(maxkey) ; /* name * / 
update(code,sym_count) ; /* update symbol table */ 
/* code = 0 for input */ 


j/* -1 fereeutous a 

/* prim #) tenet ee 7 
if (code == 0 ) 

code_input(desc_no) ; /* input code gen. * / 


if (code <= 0 ) 
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desc_no = desc_no + 1; 


new = new + 1; 


} 

[Remon n--------------- END IDSTRING------------------------------- */ 
[ RRERKIKKARAR KARA RK AR KARKRRARARR AERA ARK AR RERERE RRR REAR RKRRRA 
# A 
i UPDESCT SUBROUTINE zs 
KAKKKKRKRRKRAKERK RAK AKIRA RAKE RIKI RIKI K / 
/* This routine updates the descriptor table. me 
/* s = function name (type), num = symbol table index * / 
Bueesct\s num, code) 

char s[8] ; 

a num, code ; 

strepy(desct[code].fun, s) ; 

Mtettecds) anun = num; 

if (code == pte) 

aptr ="dptro+ 1 ; 

[Ranneern------------- END UPDESCT-------------------------------- */ 
[ RRERRKARRKRRRERERKK AKA ER ARR RK AKRK KEKE REAR AK KKK KERR RRR AKA IR A 
We oe 
: UPDATE SUBROUTINE z 
KRAKK ARK KKK KIKI RK RKKR AKIRA ARAKI IK IK IKIK IR KKK IRERERKERE RRR | 
/* This routine updates the symbol table. sym_count = symbol a4 


/* table index, desc_no = descriptor number, 
* typ = function type, 0 = input, -1 = output, -2 = internal */ 


update(typ, code 
ane Bh. Ge" 


symt[code].descno = desc_no ; 
symt{code}|.funcno = typ ; 
strcepy(symt[code].name, token_buf) ; 


[*=------------------- END UPDATE--------------------------------- */ 
[RRERRAKARARRK RIERA AKER RAK IKK IKARIA IRE RER ERR RARER ERE 
* He 
i CODE_INPUT SUBROUTINE ‘i 
KAARKAKKKKRKARAKKEK RAK KAKA KRK KERIKERI ARK IER ARERR ERER ERE / 
/* generates the code for the input descriptors a) 
code_input(i) 
mat 1 ; /* i = desc_no */ 
rac 4); 
re fereicount == 0) 
Borintt(t4,"33 jd 0 ",i) ; 
ime sht token_buf); 
Beaner(t4,"1 |d 0 jd "i, 


, 


ye 
* parameters 0 and 1 contain the input line name */ 
peat e (te, L i Zeal. a) 
advance(15,t4 


® 
? 
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[ RKKKKAKKKKAKKKKKKKAKKKKKKKKKAKKAKAKKAKK KKK KKK KKK KKK KKKKKKKKKKKAK KK KKK 
* 


* 
: HASHF SUBROUTINE és 


RAKKKAKKAKAKAKKKKKKKKKKKKKKK KKK AKKKK KKK KKKK KKK KKAKKKKKKKKKKKKAKKKKK KR | 


hashf(s) /* finds hash value for string s */ 


char *s; 
int hashval ; 
for (hashval = 0; *s != '\0' ;) 
hashval += *s++ ; /* convert from string to # */ 
test(&hashval); /* and test for collision */ 


hashtable{hashcount]=hashval; 
hashcounttt; 
return (hashval) ; 


[ka------------------- END HASHF---------------------------------- */ 
[ RRRRKKKKAAKKKKAKKA KKK KKKKAAAKKKKKKKKK KK KKKKKKAKKKKKKKKKKKKKKAKKKK KKK 
* * 
i TEST SUBROUTINE ‘ 


RAKAKAKKAKKAKKKKK KKK KK AKKKK KKK KKK KKK KK KK KKK KK KA KKKKKKAKKKKKKKKKKKKAA | 


test (value) 
fee *value; 
an) Gale 
so i<hashcount; i++) 
Lf cece /* hashtable collision? */ 
svetue aetna aly /* yes, add a prime number.2%7 
cere ue); /* and test again */ 
} 
[kee ------------------ END TEST----------------------------------- * / 
[ RRRKRKKRRKAKR ARAKI AR KK AKA RK RAKE KIRK IK IKK IKARIA RK AR RRA AR 
* ” 
: CMODE SUBROUTINE : 
KAKIKKAKRAKAKR AK RAK IKK ARIK KKK RAK KR RR AIK ARIK AK IKK IKEA RAI 
/* Code generator for mode. Code is generated only if mode !=0 %*/ 


cmode(num, fanl, overl, techl) 
int num, fanl, overl, techl ; 


if (num <= (fanl + overl)) 


if (techl == 16) | 
forintf(tS,"1 Jd 6 2 ",symt[descidigdescnc = 


else 
fprintf£(t5,"1 Jd 6 1 ",symt[{descid].descno) ; 
else 
if (techl == 16) 
peo jd 6 3 ",symt[descid].descno) ; 
else 


forintf£(t5,"1 Jd 6 4 ",symt{descid].descno) ; 
Pac ances J ymel 
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[ RRRKKRKARAKKAKRKAKKR RAK AKAK AK AAR AKA AK AKAK RAR A KAKA KKK KKK EEK AK AK K 
* 


* 
: MATGEN SUBROUTINE R 


KIRKKKAAKAK KKK KKK KKK AK RK AKK AKAIKE RAKKRAAK KAKA RAR AKK A / 
/* Also generates default mode values for all functions involved */ 


ere code, codel ) 
int code, codel; 
ame parl, Bane: ieee) ue re efa ick ies 
me num, fi, ol, ; 
char s[8]; 
[Rewnnn----------------- DEFAULT MODE_GENERATION---------------- */ 
for {i = 0; i < sym_count; i= i+ 1) 


if (symt[{i].descno >= 0) 

Meek symti].£f£uncno > 0) 
descid =i ; ie cmode() needs descid for code gen. * / 

num = symt({1i].fanld ; 

fl = primt{ (symt{ij}.funcno 

ol = primt[(symt[{i}].funcno)].overld ; 

t2 = primt| (symt{i].funcno . technology ; 

Heenum > £1) /* if non zero mode */ 


-fanout ; 





cmode(num, f1, ol, Bae 
symt[{i].delpos = symt i].delpos +4; 


} 
} 

i ee aa Be eee eee eee ace eee cok oe cece eee * / 
a. cece oeeeoeece DEFAULT DELAYS AND MATRIX STRUCTURE------- */ 
i = code ; 
oo i < codel) 

d = symt eee eet ee -descno ; /* descriptor number */ 

= symt|desct[i].dnum].funcno ; /* function number * / 


desct[{i].dnum ; 


n 
symt({n|].delpos = 0 ; . 
strepy(s primt[k] .nam2) : /* s contains name of function */ 
bdread(s) > /* read block delays for s in rd/fdmat oy, 
i (k >= 0 /* if not input or types etc.*/ 

parl 


k 


Brine] “out ; 
primt 


e- it Il 


par2 OULD ; 

a + Dar ; 

/* parl = number of in onan = number of outputs */ 
te 


for (l= 1; 1 <= parl; 1 = /* vertical scanning “*/ 
mel > 2) 
Aefec( ll > 4) 


Romine toc at!) 
symt{n].delpos = symt[n].delpos + 1 ; 


else 
Borin to Omid 3) ) a. 
symt{n].delpos = symt[n].delpos + 2 ; 
Bis /* inputs = 1 or 2 */ 


t 
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forint’ (t5 ,4edelaym. 
symt[n].delpos = symt[n].delpos + 2 ; 


wo cee et 2 Seer ends for blockedelays-—-——— 2 —— aaa x 


if (rdmat[1-1] [0] != -1) 


forintf(tS,"5 2 id “" rdmat|t=1) (ome 
Stine ene = evar ier 3c: 


if (fdmat[1l-1] [0] != -1) 


fprintf®(t5,"5 3 |d " tdmaeil- sais 
Sere Ta aces a ent at cena 


=e EO 


if ((1+1) <= pari) 
if (rdmat[1J[0] != -1) 


fprint®£(t5,"5 4 |do") roma | ol 
symt[n].delpos = symt[n].delpos + 


UsJwe 


if (fdmat[1][0] != <1) 


ror 


fprinte’e(ts,"5.5 Jd fdas alee 
symt[n].delpos = symt[n].delpos + 


Udwe 


(m = 2; m <= par2 ; m =m + 1) 


if (m == 2) 


e 


forint? (ts, "14 Jd " matcount) 
symt[n].delpos = symt[n].delpos + 2 ; 
matcount = matcount + 1 ; 


se /* if number of outputs > 2 */ 
fprint£(t5,"15 Jd Jd ", mateount = 1 emaccounm a 


symt[n].delpos = symt[n].delpos + 3 ; 
matcount = matcount + 1 ; 


/ bo eeae ie oneaaaawecne for block delays--------------- x / 
if (rdmat[l-1][m-1] != -1) 


fprintf£(t5,"16 Jd Jd ",matcount=1, rdmat[ 1-1) [m-2i7 
symt[n].delpos = symt[n].delpos + 3 ; 


if (fdmat[l-1][m-1] != -1) 


fprint£(t5,"17 Jd Jd ",matcount-1,fdmat[l-1][m-1]) ; 
symt[n].deipos = symt[n].delpos + 3 ; 


if ((1+1) <= parl) 


if (rdmat[l][m-1] != -1) 


fprint£(t5,"18 Jd Jd ",matcount-1,rdmat[{1l][m-1]) ; 
symt(n].delpos = symt[n].delpos + 3 ; 


if (fdmat[l][m-1] != -1) 


fprintf£(t5,"19 Jd Jd ",matcount-I tamara mate 
symt[n].delpos = symt[n].delpos + 3 ; 


} 
fadvance(12,t5) ; 


Zoe 


* 
we 
* 


* 
* 


i 
1 
F 
t 


} /* end for m= -- */ 
3 /* end for 1 = -- */ 
. /* end if k >= 0 */ 
l1=i1i+i1 
3 /* end for i = -- */ 
wa------------------ END MATGEN---------------------------------%/ 


FP KFA KKRKRKRKREKRKRKERKKRKKEKKEKRKRKREKRKRERKKKKKKKH 
* 
RFDEL SUBROUTINE : 


KAKKKKKKKAKKKAKKKKKKAKKAKRKKKKKAKKRKAAKKRKKAKAKRKKAKRKKAKAKAKKRKKRRKKKEK KK | 


fdel(nl,codel ,code2,rx) 
oe ni, codel, code2; 
ILE Ary : 

int in 


lim 
act _tab[index1] wale 0 = 
index = index + 1 ; 





del_tab[indexl .dsc _nb = target ; 
del_tab/index1].num_ipt = savparl; 
del_tab[index1] .num ~opt ~ Savpare; 





lim = lim + parm2 - 1 ; /* lim is incremented by # of outputs*/ 
peers’ (2) 








f (codel > i) /* first access desc. * / 
Berintr(rx,"6 jd " target): 
del_tab indexl]|.val = eu tab[index1] Vallee 2): 
ae tab eee eae = index; 
if (nl == 
del. _tab[index1].typ_num = 10 ; 
else 
del Bemencentys typ_num = 11 ; 
codel = codel - ; 


while( codel > 05 


Gotantecrs, "7 ') > 

del_tab index1]. val = del_tab[indexl].val + 1 ; 
fadvance(1, ba) 

codel = codel - 2 ; 


i /* if parl > 1 */ 
else 








jee pariv= A * / 
Bprintt(rx,''4 a Beant) 
del_tabf index1 el gtabl index! PVal +2 3 
del_tab| index1l eo index 
if (nl == 0 
del_tab[index1].typ_num = 10 ; 
else 
del_tab[indexl].typ_num = 11 ; 
= savparl 2; * even or odd parl x 
ie (Godes os a} f F i 


es: "5 p eta Mine Tn eccinp) se 





del_tab{index1].val = del tab index1] ‘val + ‘ 
else /* multi-output case x / 
code2 = code2 - 1 ; 
Beprintt(rx,"8 ") - 
del_tab Sl: val = dei tabilandexl | :val + 1 ; 
del_tab[index1].indx = index; 
if (nl == 0) 


Zo 


del_tab[index1].typ_num = 10 ; 


ii; 


else 


del_tab[indexl1].typ_num 
fadvance(3,rx) ; 
while (code2 > 0) 


fprinti(rs, Jee: 
del_tab{indexl].val = del_tab[{indexl].val + 1 ; 
fadvance(1,rx) ; 

code2 = code2 - 1 ; 


(inp == 0) 
if (nl == 0) 
Seni "TO. |a “num 
del_tab{indexl].val = del. ’ tab[index1] val + 2 ; 
else 
Sprinte tex. A cone eee 
del_tab[indexl].val = del.” _tabf[indexl].val + 2 ; 
et 
if (nl == 0) 
aoe B12 ld! num) 
del_tab|[ index] ] i on ‘ tab{index1]. val +2; 
else 


See 11320) 3 onan) 
del_tab{indexl].val = eee ‘ tab{ index! ] val + 2 ; 


fadvance(2,rx) ; 
codel = savparl ; 
codezZ = savyparZ ; 


indexl = indexl + 
/* end RFDEL ee 
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APPENDIX F 
FILES NECESSARY TO THE CADD PROGRAMS 


[ RARRRAKKRKRRKRKAKRRKAKKAKRR RRR KAARRRRKKERR ERK RRR RK KAKRRRKRKARRRRKKAKRRRKKAKRRK 
* * 
* BLDEL file - 
* * 
RRKKKKRKRRKRKRKKKKKARRRRRKKAK KKK RRR ERK RKAKRRRRRRKRRRAKRRRRRKRRKRAKK RRR | 


AND 


0 
oO 
b+ + 
b+ 4 


jhe 
b+ 4 


a=#ONZRONDEFONRN 
4 
jes 


BOO FOO 
Oo 


HrHON 
Zoo 
("1 
-j 

+p 


or 
So 
- 


NNNNNNNMNNNNNNNDN WNNNNNNNDY ORFF FRE ae FO i 


O00 
oO 
pa 


a 
NNNNNNNNNNNNNNN ONNNNNNNN AMR DReRRE ir 


Cc 
oO 


> 
Oo 
c* 


PON OUP WNOUPWNONTINORRNONOOUNEFOWANE OW 
NNNNNRFRRRROOOOO FANNNFRFRFOO WOOO 
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RPRRR GRRPRr DRRRR WRRPRPRF ONNNNMNNNN[ 


“NTI RPONTIWNFORONFOWOWNRFOPRBZWNHKPODY,PUNAPWHOPRWNHO 


w 
AtOO0 OO000O0 oo a= H4OoOd0O 
w 


AAKAAKAKARAKAKAKKAAKAREND BLDELAAARAAAAAAARAK RAR AA AR AA AAA A AAA A IR / 


[ RRKKKKRKKKKAKKRRKKKAAKKKKKAKKA KAKA RRKAKAAKRKRKKAAKKRKRARRRRKAAKRRKKAARRRKK 
* 


< BLOCK file i 
AMARA RARARERRRAR RR RAARARRR A AAARAR ARE RT ASO (020 sain 
[ken----------------------- NAND GATE----------------------------------- */ 


NAND(flg ,inpx,ou 
Ine. fla, “*inpx, ou ; 


Di eyes 


if ea 
indata i ee 2) ; 


rape) + os ins Loon 


syiten() 
case 0 : cece), =1; 
reak ; 
case l: Week) aps dt 8 
brea 
case 2: if se oes x) == 1) 
=O; 
else 
*Xou) = 1 ; 
k 
2 


break ; 
default : (xou$ 


num_outs = 1 ; 
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Es 
NOR(flg ,inpx, ou 
mri aeeia) \ ae } 


mit 1 3 


anf ial 
indata ( ee 2) ; 


i= naa x) + (*(inpx + 1)) ; 
switch (iy 


case 0 : pace) 1; 
brea 
case l: hae 0; 


case 2 : re SE 7 = 1) 


I] ~e 


*“Cou) =2; 


default ee if Ase == 1) |] ((*(inpx + 1)) == 1)) 


(Fou) = 2; 


(bg 
ANDTHRE (f£14g ,inpX , ou) 
cee Lo , inpx, kou ; 


oe ann { Z| 

(fig eS 
air ata(inpx, 3) ; 
Zant inpx inn) ; 


inn[1] = (*(inpx 4 Zone 
AND(1,inn, ou) ; 


(Ga 
ae , INDX , 
te inpx, eae ; 


int m ; 


a& a 
inda Pines. Soe 


' ANDTHRE(1,inpx, &m) ; 
INVERT(1, &an, ou) : 


Le 
SRBLOCK(flg ,inpx, ou) 


sake aciye; 4 “wihejer<, wielel 


ee eer 2 ees 





at eo Ta 
inda ae 3. 
NAND(1, inpx, inn) 
inn[1]} = i (inpx e by) , 
ee a inn 
AND(1, inn, outl)) ; 
ese (*(ou + 13) : /* X output is same as Q' */ 
num_outs = 3 ; 
yi eee dw ede ose ese wowcococcececcsseeen le eee eee x / 
[Kennn----------------------- RETDBLO() --------------------------- * / 
RETDBLO(f1g_ , INPX , ou) 
Pntecig {ec inpx, Fou ; 
nt a cnn |S | te 
se eee 
inda eee 6) ; 
NAND(1,({inpx + 3),inn) ; /*¥ A= Nae X2) */ 
/*® inn[0] = * / 
anni = (inp) 7: {> innit) = clr * 
inn{2] = ey, - e- : /*® annl(2Z) = 76nK * 
eae Patines " X2 = _NANDTHRE (A, clr, CLK) - 2a 
NANDTHR(1 oe : ie &¢inn[2]) cae B= 5 NANDTHRE (X2 , CLK, x 
in 
a (inpx } 4),ou) ; /* Q = NAND(X2, X3) ; * / 
inn Sen /* bat = Q ah 
inn ‘ e em ; /* inn[{1] = clr */ 
NANDTHR(1, inn, (outl)); /* Qc = NANDTHRE (0, clr,B); * / 
inn[0O]} = (x inpx + 1 : /* in } =D % / 
Nt inn, (out+2 /* X1 = NANDTHRE (B, Cin) x / 
(X(our4)) = (X(ou + 4)$ ; /* X3 = Qc */ 
num_outs = 5 ; 
[Row nnnnn nnn en nn nnn enn anne nnn nnn n nn nnn nn nner nnn nnn n nnn ne nn nnnee */ 
[Ken------------------ UR INPUT AND GATE----------------------- * / 
ANDFOUR(f1g ,inpXx, ou) 
int flg , *inpx, Fou ; 
int inn[2]; 
ef ae 
inda Gas 4); 
ANDTHRE (1, ins, me ; 
ea (x(inpx + 3)) ; 
AND({1, inn, ate 
num_outs = 1 ; 
ee ‘ 
[*----------------------- NANDFOUR( ) ------------------------------ * / 
NANDFOU(flg ,inpx, ou) 
intsilig , “inex kou ; 
int m ; 
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ft sea (ines. 4) ; 


ANDFOUR(1,inpx, ém) ; 
INVERT(1, &m, ou) ; 


num_outs = 1 ; 


ie 
feeere 9, , inpx , poe 
cert inpx, ; 


int inn[2]; 


ae ees 
inda eCinpe, 3) 


OR(1,inpx, inn) 
inn 1] = eg + 2)) ; 
Chia, inn, ou) ; 


ie 
ORFOUR(f1g_ ,inpx, ou) 
eels , kinpx, Aou ; 


int inn[{2] ; 


i ees 
inda Neo 4) ; 


ORTHREE (1, inpx, inn) ; 
inn[1] = (* (inpx + 3)§ ; 
OR(I, inn, ou) ; 


es 
EXOR(flg ,iNpx, ou) 
int flg , *inpx, *ou ; 


int i ; 


ite £ | 0) 
inda anox. ape: 


x 
sitchin weecrips + 2) 


case 0 : ou) 
brea 
case l : ou 


OF: 
1 : 
case 2 : ea Cine) == 1) 


; 


~> Wl 


La 
Lon: 


“-—— 

+ 

mn O 
= 

ll 


break ; 
default : (*ou} 
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* gfZeeeee@g @e ew2 Se eee st gGgGgr@ Fees sews Fes Fess ges ses sss Fs tgs ss sess szgs se segs ss ssesg gas = = as * 
| RRKREAAKHRERARHAEAARAREEND BLOCK ARR RA ACR RII ok ot ce A ae 


[ RRKKRRKRKKKKRKRKKRKAAARRKRKAKRRRRRAAAARKKKKRKRRKA RA RRKAARRKRRKKAKRRRKRKKRKRKK 
* 


* 
* FADDR file x 
* * 


KARKARKAKAKKKAAKAKKEKAKARKKRK AK AERA KAKA KKK ARK AK ARAAKERRRARKARARKAR / 
/* Addresses of primitives supported */ 
= N 5 


pnin([3 : 
pnin(4] = NOR ; 
pnfinj6] = EXOR ; 
pnfin|7] = ANDTHRE ; 
pnfn|8} = NANDTHR ; 
pninj9} = SRBLOCK ; 
pnfinj10}/= RETDBLO ; 
pnfinill|= ANDFOUR ; 
pnfn|12}= NANDFOU ; 
pnfin|{[13]= ORTHREE ; 
nfn|14}= ORFOUR ; 
neny, = 15 


[ RERERKKAKKKAKKKAKKAKAKEKEND FADD RERKAAAAKAAAKAAAKKAKAKAKKAKAKAKAKK RR / 


[ RRRKKRKKKKRKARKKAK RAK RKAKA KAA RKA KKK RKKAAKRARKARKAAKKRRKRARKARARRKKAKKK 
* 


Ke 
x FIYPE file : x 
x * 


KRKKKKKKKAKKKKKKKRKKRKKRKKKKKKK KAKA RKRKRKRKKRKKRARKRAKKRRKKKAKAAKKRKRRK | 


int NAND() ; 
int NOR() ; 
int ANDTHRE 
int ORTHREE 
int NANDTHR 
int SRBLOCK 
int RETDBLO 
int ANDFOUR 
int NANDFOU 
int ORFOUR() ; 


int EAOR 2 , 
Fee wee ao Sees FT YPE RAAAAAAAAA AAA KAKARARAAKKKAAAAAAKKRR / 


“we Swe “se Se Se Se We 


[ RRKKRRRKRKKKKKKRKKRAAKRKRRKKAKARKAREKKKKARKRKKKRRKARRRKKARRRRKKRARRKRKKRRRK RK KKK 
* * 
‘i PRIM2.C file % 
RARKKKKKKKKKAKKKRKKKKKKKKKKKKA KKK RKRKRRKKRKRKKKKAKRKRKRRKRKRKRKRAAKARRRRREE | 


[ RRRRRKRRRKKKKRKKKAKKKRRK RAR ARK RAR RRKRRKRKARRRKARRKRARKKRRKKA RR RRKKRR KKK 


Logic Primitive Descriptions File 
KARKKKARR KR KAKARKKKRRKK RAK ER KKK RAKE AK RRKK RRA RRKKARKKARERKRRRK | 


f#include "“e:\ le\stdie.h" 
#define maxprim 100 
StrUCe Orimetab 
char nam[8],nam2[8]; 
int numpar,outp; 
int normld, fanout; 
int technology, overld; 
struct prim_tab *tempptr; 


rimsetup(primptr) 
: eee Beater Aprimptr; 
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extern int prim_count, features[maxprim] [2]; 


int 1; 
ea oy 
XP ; 
tempptr=primptr ; 
strepy{ (Rprinpes) nam, "READIN" ) 
rimp 
ese arrisets) oe, "AND!') ; 
primp 
eal ots (Aprimptr) .nam, ORE: 
primp re 
Berets (Aprimptr).nam, "NAND'') 
rimp rf 
strepy ( (> (Aprimptr) .nam, "NOR'' ) 
primptr+ 
strepy( (*prinptr) nan, "INVERT') ; 
mim cr t+ ; 
Strepy((*primptr) .nan, Liapolsiuy 
rimptr++; 
strepy( (*prinptr) enam, 'ANDTHRE" ) 
primptr++; 
strcpy((*primptr) .nam, "NANDTHR"') ; 
primptr++; 
strepy( (*primptr) .nam, ''SRBLOCK"' ) 
Baumpertt; 
strcpy((*prinptr) .nan, "RETDBLO"' ) 
peimptr++; 
Beer (Sprinptr) .nan, "ANDFOUR" ) 
primptr++; 
strepy((*primptr).nam, "NANDFOU'') ; 
Poimptrtt; 
ee ee om "ORTHREE'") ; 
primptr++; 
strepy ((* ({primptr) .nem, "ORFOUR'') 
primptr+ 
amy \C (*primptr). nam,""USERL"') ; /* set up user-defined prims */ 
primptr+ 
strepy ((*Prinptr) nam, "USER2''); /* we'll check to see if any */ 
primptr++; 
strepy( (*Prinptr) Pham, USERS"): /* are actually present later */ 
primptr++; 


eer (oPrinptr) nam, ""USER4") ; 


rimp nee 


strepy (( (*primptr). nam,""USER5'') ; 
re 


primp 


eecey ( ( (Aprimptr). nam ,'"USER6") ; 
ar 


primp 


strepy( (Prinptr) enam,''USER7"') ; 


ELM crt ; 


Strepy( (*prinptr). nam, '"USER8"') ; 


primptrt++; 


strepy( (*primptr). enam,'"'USERS"') ; 


primptrt+t+; 


Strepy( (*prinptr) onam,""USER1O"') ; 


Bom Ccrtt : 


Strepy ( (*Prinptr). enam,"'USERL1") ; 


primptr++; 


strepy( (*primptr). enam,''USER10") ; 


primptr++; 


strepy( (*primptr). onam,'"USER12") ; 


Pimper tt > 


Strepy( (*Prinptr). nam, ''USER13"') ; 


primptr++; 


strcby((*prinptr) onam,"'USER14") ; 


primptr++; 


strepy ((*primptr). onam,"USER15"') ; 


primptr++; 
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a 

rimptrt+: 
Streby ( (*primptr) 
primp 

cee eee 
SERce (0 Cpe) 
Eee 

aon (*primptr) 
primp rf 

SSL CPiapee) 
Strep eee 
primp he 
oe 
rimptr+t+; 

Strep ((xprimptr) 
primp ae 
Strepy((*primptr) 
primptrt+t; 

strep ((xprimptr) 
PELE bednper 
strc Pamper 
ee 
Strep ((xprimptr) 
primp a 
Streby( (*Prinptr) 
primptrt++; 

strcby ((*prinptr) 
primptr++; 

strep ((xprimptr) 
primp Bee 

eee 
CImp ey rt. 

Strepy( (*primptr) 
rimptrt++; 

Strepy( (*primptr) 

primptrt+; 

strepy( (*prinptr) 
primptra+; 

Strepy ( (*primptr) 
primptr++; 

strcby( (*primptr) 
PIMNDerrs: 

Streby ((*prinptr) 
rimptrt+t; 

strepy ((*primptr) 


primptrt++; 
as AS se de 
rimptr++; 


Bere oie ee) 
primptr=tempptr; 


enam,""USER16"') ; 
enam,""USER17"') ; 
enam,''USER18") ; 
-nam,"USER19"); 
snam,"USER20"') ; 
enam,"USER21") ; 
.nam,'"USER22") ; 
enam,"USER23"') ; 
enam,"USER24'') ; 
enam,""USER25"'); 
enam,""USER26'') ; 
.nam,"USER27"); 
enam,""USER28"') ; 
enam,""USER29"'); 
enam,'"'USER30"') ; 
wnam,"USER31"); 
snam, “USERSO” )- 
enam,"'USER32"') ; 
enam,""'USER33") ; 
enam,'"'USER34"') ; 
snam,UUSERSS"):: 
snam, "USERS! )- 
enam,'"'USER37"); 
onam,'"'USER38'') ; 
enam,"'USER39'"') > 
onam,'"'USER40"') ; 


=fopen("D:primitiv.dat","r''); 
éscant (xp, nya" &prim_ count) ; 


for (1=0; i<prim_ count; 
scanf(xp,"]s Ne 3 


Limptrite 


fclose(xp) ; 


i++) 


d }d jd", (*primptr) -namze ff rim 
(*primptr).ou p, &features [i] of. & 


/* reset pointer to start */ 


/* 


get additional info from disk*/ 


tr).numpar, 
&features[i][i]); 


[REA ee PRIM2. CRARKKAAKKAARKAKKKKAAKAKKKAKKAKKKK A | 
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[ RAKKKARAKARKKAKKKKK KAKA KAKAKAKAKAKRAKAAKRKAKK AA AKRARKK RK KK AKKAKAKAKAK AK A 
* 


* 
: PRIMITIV.DAT file is 


KAKAKKAKKKKKKKKKKAKKKKKKAAKKKKKAK RK RK KAKA RKKKAARKKAAKAARKRKKAKRKRKKKAARKAKAKAKAE | 


5 
READIN 0 0 2 0 
AND 2 1 2 0 


Bac lL ZO 
Nan 2 i*2 0 
Her 21 2 0 
INVERT 11 2 0 
Back 2 1 2 Q 
ANDTHRE 3 1 2 0 
NANDTHR 3 1 2 0 
SeecuOoCK 3 3 2 1 
RETDBLO 6 5 2 1 
ANDFOUR 4 1 2 0 
NANDFOU 4 1 2 0 
3 20 


ORFOUR 412 0 
[ REKKKKAKKEKKAKAKAKAKARKAREND PRIMITIV . DATAARAAAAAAARAAAKARARARARA RAR A / 


[RRRRKRRRKARRKKAKKKARKRKKAKRKRAKARRKAKAKRKAK KKK RRKAAKRKARAKARKRKKAKKAAKKKARK 
fe : 


x 
= SPRUC. file * 
k * 


RAKKRKRKKAKKKKRKKKKKKKAKKKKRKARRKKAKKAARKKKAKRKKAKRAKRKKKRRAKARKRKRKKKKKR KK / 


MODULE : INVERT ; 
INPUTS : A ; 
OUTEUIS : B : 

i. . 


OF 


MODULE : AND ; 
INPUTS : A, B ; 
OUTPUTS : Z ; 
i : 


OF 


MODULE : O 
BWeolS : A, 
Cee vis : 2 
i ? 


O; 


MODULE : ANDTHREE ; 
Itteeis =: A, B, C ; 
OUMEUTS : Z > 

ie oo: 


OF 


MODULE: NANDTHRE ; 
iieeios A, B, C ; 
COUTEUTS : Z ; 
Tarbo +: ; 

{ 

QO; 

MODULE : ORTHREE ; 
iid 2 A, B, C ; 
Oreulo : 2 > 
a 3 


Oo; 


Ey 
ean 
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} 

MODULE : EXOR ; 
INPUTS : A, B ; 
OUTPUTS: 2 
TYPES 


=e 


MODULE : NAND =; 
INPUTS : A, B ; 
OUTPUTS: = 2: 
TYPES = 


MODULE : NOR ; 
IN-ULS =) =. °5 + 
OUTEUTS 2 
TY EBow se 


MODULE : ANDFOUR ; 
Dim Sear ba Cz. De = 
OUtEULS «21 ae > 

Pye eo ee 


MODULE : NANDFOUR ; 
ENEUTS 7: A, 5, 6. D> 
OUMRUTS << 4 > 

TYPES = ; 


MODULE : ORFOUR ; 
TNEUTS So: tA, B, Coo.) <- 
OUTPUTS <= Z = 

ae tue 


O°; 


} 

MODULE : SRBLOCK 
INPUTS =: S, R; xX 
OUTPUTS <=-0,°OC, 
TYPES = )- 


Q = NAND(S, 20} 
Oc = NAND(Q, R 


MODULE : RETDBLO 
INEUTS : CLR sD, K, DUM DUMZ, Pune. 
OUTPUTS SoRNAT DM1, DM2, ‘DM3 : 
IXYPES INTERNALS : Se Lee W, Aan; 


=e 


Hse 
~e 


=e 


Cy~e 
tt 


NAND(Z, Y) 
NANDTHRE 
NANDTHRE 


CER Chi) 

7, CER a). 

NANDTHRE (W CLR, Diya 
_NAND ( Le et 

a OIee (QO, “CER, W) ; 


[ RRERKRARERKERAERKERAERAREND ST RUCAARRARAKRAKAAKRARKAKKKRAKR ARK ARRKKR / 





wet CON 
Syu0we 
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[RRRKKKRRKRKKKAKRKAKKKAKKAKRAKA AKA KKK KK RR RKEAKAKAKAKAKKKKAKAAKKA KK RAK KR RKK IK 


* 
: COMP2B.BAT file A 


KAAKKKKKKKKKKKAKKKKKAKKKKKKKKKKKKAKKKRKKKARKRKAKAAKKKKAKAKAKKKAAAKRKKAAKAE RE | 


le -ml -n20 cadd2b 
le -ml -n20 prim2 
le -ml -n20 


Heim \ic\l\c trenda Dtp Dee teeupecomp caddr dep \i c\1 \icl 


TERRER RAR ERE ERE RRA I KKKEND COMP2B . BATAXAAKARK KEKKKKAKAKKKKK KK A / 


[RARKKAKRKKKKRKKARKAAKKAAKA RAK AK RKRKAARKKAARKKAAKKKAAK RK AARKAAAKA AAR KAKA RK AARK 


* 
; COMP3B.BAT file f 


RAAAKKKKKKKKKKKKKKKK KKK KK RKKRKKAKKKAKKKAAKKKAKRKKKRKEKAKAKEKKEREKKKAKEKKKE | 


le -ml -n20 cadd3b 
fememt =n20 BEMma., 
le -ml -n20 prem 


p 
Here \ L 1e\]\clrcadd3b+p Winer nenp Lc AGdGh GSD tLe \ L\ te 
ERRRREERERREE EAA R AES KEKEND COMP3B .BATAAAAARKARAKK HARRI EER 


[RAKRKKKKRRKKKKAKAARKKKAKARKKKKAAKRKKAAAKARKKAAARKRKKAARKKKAARKRKKAAAAKKKKAKARKKKK 


* 
: MODEL2A.BAT file : 


RARKKAKKKKAKKKKKKKKKKKKKARKAAKKKAKKAKKKA KKK ARK ARKAAKKAKRKAKEKARKKAKKKARKAK | 


echo off 

echo Setring Up... 
if ]2==c goto compl 

1f }2==C goto compl 

1f j2==S goto simul 

1f }2==s goto simul 


co id: \ 
Soon ii, in a: \ 
copy simd\struc d: 


copy \simd\bldel d: 

co y \simd\primitiv.dat d: 

ec Entering the VOHL Compiler... 
Bacdrd2b Reece ae | 

simrd D: _ Th Dee out 


type d ut 

Beoy d:{1. “am: c:\simd\]l.out 
pause 

goto done 

Comp + 


i d:\ 
eae simd\struc d: 
EoPy \simd\bldel d: 

y \simd\primitiv.dat d: 
Ee Entering the VOHL Compiler... 
edd d2b =16000 d: ae 
copy d:modf c:\sim ai omdf 
Boevead:initi c:\sim Me 
Seeyec:caescf c:\simd\|1.dcf 
See, ed:delf c: \simd\ .ddf 
Sepyea:prnt c:\simd\jl.ptt 
goto done 

:Simul 

Soe, e)i.in d:\ 


copy c: \simd\ 1.mdf d:modf 
copy c:\simd\ ie int d:initi 
copy ¢:\simd\}1.dcf d:descf 
copy ¢c:\simd\]1 1.ddf peceet 
Sepyec:\Simd\ji.ptt Seppe 
simrdl D Tisout Deo 

type d: ut 

copy d: eur ea ysimay |) .0ut 
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pause 


:done 

echo Cleaning Up.... 
copy d:modf c:\simd V3 .mdf 

COpy Geiniti c<\simd Wi lane 

copy d:descf c:\simd\|1.dcf 

COpyee Gell c- \simd\ .ddf 

copy d:prnt c:\simd\ Be 

copy d:symtable Gr oR ~stb 

copy d:descptab c: ‘Sane JaCE 

copy d:nortable c:\simd\|l.nrt 

copy d:inptable c:\simd\|1l.ipt 

copy d:deltable c:\simd\Jl.del | 

echo saving Descriptor Wallac 
copy d:primitiv.dat \simd 

= y d:struc \simd 


O turnin DOS 
SERIA RI III III IRR A IIIA REND ep ingseoeD BATRAAAAAAAAAAAARAAAAAK AAR ARA AR / 


[ RKKKKKRKARKKAKRKAKARKKAKRKKRRKAKARKARRKAKRKA RRA RAK RKARRKKRKAERARRKE RK KKK 


* 
: MODEL3B.BAT file : 


KRAAAKKAAKKKKAKKKAKKKKAKKRKKKKKEKARKKKAKKKKKARKKAKKKEKKRKEKAKKKKKARKKKKRKEK | 


echo off : 
echo Setting Upwes 


copy \simd\]1.mdf d:modf. 
copy \simd\|1.int d:initi 
copy \simd\/l.dcf d:descf 
copy \simd\}1.ddf d:delf 
copy \simd\jl.ptt d:prnt 
copy \simd\|1.stb d:symtable 
copy \siman |i .deu d.decseptap 
copy \simd\jl.ipt d:inptable 
copy \simd\/1.nrt d:nortable 
copy \simd\]1.del.d:deltable 
1£ |2==c goto compl 


if }2==C goto compl 
1£f |2==S goto simul 
if |2= ae eee 
copy e 
copy Ii, inc) 
copy simd\struc d: 
ooey \simd\bldel d: 
y \simd\primitiv.dat d: 
Entering the VOHL Editor. 
Becdedea =16000 d: Hee .ed 
Simrdl D2)}t.in D:)1L.out 
type d:]l.out 
COpy a: | T.0Ut G=\eimd, | touc 
pause 
goto done 
:compl 
copy (a3 .ed d:\ 
copy \simd\struc d: 
ecry \simd\bldel d: 
y \simd\primitiv.dat d: 

ae pat enand the VOHL editor: 
caddrd3a =16000 d:]l.e 
copy d:simdata c: ‘aang 1. sim 
go © done 
Se Pa 
copy ec 

Pek Tio La eD  eeoul 

bypeva UE 
copy d ont c:\simd\]1l.out 
pause 

: done 
echo Cleaning Up.. 


246 


copy d:modf c:\simd Uy ime 

copy d:initi c:\sim i: Lie 

copy d:descf c:\simd\|1.dcf 

copy d:delf c: \simd\ iL.ddt 

copy d:prnt c:\simd\ Ist 

copy d:symtable c: Be anic 1.stb 
Bopy d:descptab ¢c:\simd\|1.dct 
Sepy d:inptable c:\simd\|1.ipt 
copy d:nortable c:\simd\]l.nrt 
Beey ad:deltable c:\simd\}1.del 
2cno Saving Descriptor Data... 
copy d:primitiv.dat \simd 


go y d:struc \simd 


o Returnin 
TERRI IRR IRI IIR IKI IK IKEND Sonores. BARE aaa ARI RRR RRK / 
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APPENDIX G 
NECESSARY FILES TO THE MULTISIM PACKAGE 


CADD2A.C - The source code for the VOHL compiler, that includes the code 
generator. 


PRECOMP.C - The source code for the precompilation routines of the compiler 
program. 


PRIM2.C - The primitive initialization routine. 

CADD3B.C - The source code for the editor program. 

PRCMPIL.C - The source code for the second part of the editor program. This 
program needs to be linked with the CADD3B.C program to allow the edition of a 
circuit. 

TWHEELI.C - The source code for the timing wheel simulator program. 

FTYPE - The primitive function type declarations. It is an #include file. 


FADDR - The primitive function pointer initializations. It is an #include file. 


BLOCK - The C-language behavioral descriptions for the primitives. [t is an 
#include file. 


STRUC - The primitive library containing VOHL structural descriptions. 


PRIMITIV.DAT - The data file containing the user’s names fo the primitives 
and various other information. 


BLDEL - The block delays for each primitive. This file contains the value of the 
default delays from each input to each output for all the primitives of the system. 


COMP2A.BAT - The DOS file that allows the compilation and link of the 
various programs that perform the compilation of a circuit. 


COMP3B.BAT - The DOS file that allows the compilation and link of the 
various programs that perform the edition of a circuit. 


MODEL2A.BAT - The DOS file that allows the execution of the compilation 
and simulation of a circuit. 
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MODEL3B.BAT - The DOS file that allows the execution of the edition and 
simulation of a circuit. 
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APPENDIX H 
THE ALU CIRCUIT 
MODULE : ALU ; 
INPUTS : x B . ae E, F, G, H, I, J, K, Ly Meee 
OUTPUTS : ALUS, ALU2, ALU1, ALUO, CYOUT, ZR, OV, RI, PI, GI 


TYPES : INTERNALS : HO, Hl, HZ, Hs, KO) Ki KZ ore W1, W2, W3, 
S1, 52, 53, LO, Ll, LZ, L3, H4,"HS) Hoje a?, Hoven oe 


{ 

K3, K2, Kl, KO, HS.) BY?) 2h Gi oe— mieten ay ne e = ee j KS 
L3, L2, Ll, LO, Hl = EOGT@°(A, BT sGpbres Ob eG t M, a Bi ») ; 
Ha, S392) ol. 0G" HE, H2 = SHIFT (Y, A, B, ©, Da Gece Ss) 
WO = ORTHREE KO, Lon SO : 

Wi = ORTHRES CK ie ol ae: 

W2 = ORTHREE K2, bee Sa) 

W3 = ORTHREE (K3, L3, S3) : 

H9 = ORFOUR (WO, , W2, W3) ; 

H10 = INVERT (HO) ; 

H8 = OR (H6, H5) 


H3 = ORTHREE (HO, ’ H2 ) 
ALU3, ALUZ, ALU1, ALUO) cyour, 2R, OV, RI = 8GATE (W3, W2, W1, WO, 
H8, H10, H7, H4, "H3) ; 


3 
DEFINE: ; 
INITIALIZE: Z = 2 
PRINTOUT: CrOuUr, ALU3, ALUZ, ALU1, ALUO, RI, ZR, OV ; 


MODULE =: ARITHMETIC - 

INPUTS =-45 8) 3 ©. Deg. Nye Oly IW ee 

COTEULS tahorehc ati KO, COUT, OV, Pr, ct, ENA 

eee : INTERNALS : GO, ci G2, G3 Gd, Go cor 67, ConGo 7: 


GO, Gl, G2, G3 = ADDSUB4 (M, N, 0, W) 
G4, G5, G6, G7, G8, PI, GI ABITADD(X. a’ B, C, D, GO, Gl, G2, G3); 
G9 = ADDOV (D, CoeeGy) 
ENA = OR (W, : 
K3, K2, Kl, KO” CoUT, OV = 6GATE (G7, G6, G5, G4, G8, G9, ENA) 


MODULE : ADDSUB4 ; 

ENE WS 2 en i eG oF eae 
GCUTEUIS 2907 NO; 00 ro. 
TYE Got oes 


MO, NO = SEpeEe N, &} ; 
00, PO = ADDSUB2Z(0O, P, xX 


MODULE : ADDSUBZ ; 
ENEWS she None 
OUTPUTS : MO, NO ; 
Seep a 


MO 
NO 


STE x ; 
BAOR(N, 4); 


MODULE : 4BITADD ; 

INCUTS 3 XA OB eee Dee Ny Ono: 

OUTPUTS 2507 oe. S2, $3, COUT, Pe 

TYPES : INTERNALS : AO, Al, Bay A3, A4, AS, A6, A7, A8, AY, AlO, All, 
Al2, Al3, Al4, ‘A15, Al6, al7, A18, ‘A119, AZO ; 
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SO, Al7, A13 = vere A, M) ; 


313) 
SL A18, Al4 = ADD(A10, Bee Neen: 


ai, = ee, A18) ; 
A2 = AND(A18, Al3) ; 
= ORTHREE (Al , A2, Al4) ; 
S2, Al9, Al5 = ADD(All, C, 0) ; 
A3 = AND(Al, Al9) ; 
A4 = AND(A2, Al9) ; 
AS = AND(A18, Al4 
Al2 = ORFOUR(A3, a4. aS, 7 : 
S3, A20, Al6 = ADD(Al12, D, Q) ; 
A6 = AND(A3, A20) ; 
A7 = AND(A4, A20) ; 
A8 = AND(AS, A20) ; 


AS = AND(A20, Al5) 

c= ORFOUR(A7, AB, AQ, A16) ; 
COUT = OR(A6, 

P = ANDFOUR(A20, Al9, Al8, A17) ; 


} 
MODULE : ADD ; 
CPNPUrS =: C, A, : 
Oimeuls =: S, PI, GI ; 
weer 3 3 
¢ 
PI EXOR(A, B) i; 


GI a 
~ EXOR(C Pt)’, 


MODULE : ADDOV ; 
Meats : A, B, & ;3 


OUTPUTS : OV ; 
st : INTERNALS : BO, Bl, B2, B3, B4 ; 
BO = INVERT ; 
Bl = INVERT . 
B2 = INVERT : 
B3 = ANDTHREE " B, ae ; 
B4 = ANDTHREE (BZ, Bl, X) ; 
OV = OR (B3, B4) ; 


MODULE : Ry ae ; 

HibuGs : A, Cybill, 0; P, Kee oe 
OUReUTS : i3” oe) ele Op 

TYPES : INTERNALS : MO, M1, M2, M3, M4 ; 


Morel, M2, M3 = LGUNIT4 (A, B, C, D, M, N, 0, P, K, Y¥, X, Z, R) 
M4 = ORFOUR Ken Kone Zi) ae 

ENL = OR (M4, R 

a ie ie; ie = AGATE CvGpe iia MSs E Nisin 


MODULE : LGUNIT4 ; 

Tien, B, C, D, M, N, 0, P, K, Y, %, Z, R ; 
OUREUIS : LO, ade 2) L3 ; 

eee: > 


eo, Ll 
ee ES 


LGUNITZ t Beat, 
LGUNIT2 (C, D 


MODULE : LGUNITZ ; 

Duaeioe: A, B, C, D, K, Y¥, XK, Z R; 
OUTPUTS : LO, Ll ; 

ere S =: > 


Zon 


LO = LGUNIT1 (A, C.K ene B} ; 
Li = LGUNIT1 (B, D, K, Y¥, %, 2. Roe 
MODULE : LGUNIT1 ; 
INPUTS : A, B, K, Y, X, Z, R; 
OUTPUTS : LO ; 
TYPES : INTERNALS : CO, Cl, C2, C3, C4, C5, G6, G7 Ga commalen 
CO = AND (A, B) ; 
Cl = OR (A, B) 
C2 = EXOR (A, B) 
C3 = INVERT (a) 
C4 = INVERT (B) ; 
C5 = AND (CO, K) ; 
C6 = AND (C1. Y) ; 
C7 = AND (C2, x) ; 
C3 = AND (C3, : : 
C9 = AND (c4, : 


C10 = ORFOUR (e5 C6, C7, C8) 
- = OR (C9, C10) ; 


MODULE : SHIFT i 

ENE WLS: neo ee, Ys Tl. ON ane 

OUTPUTS 2: 7RE os. S2, $1, 50, CY, ENS ; 
TYPES : INTERNALS : FO, Fl, c2. F3, F4. FS; 


ENS = ORTHREE (M, N, 0) 
bly. BZ, Bo vere, FOG. eS 


SHUNIT4 Cys C, B, A, 4,7 Noe 3 
Ki, D0, -9l4 G2, So er 


6GATE (FO, Fi! F2, F3, F4, FS, ENS 


MODULE : SHUNIT4 ; 

ENEWS. : Lab pep Oye ty ee 
OUTPUPS 3 SU o., S2, $3, OUTR, ouTL ; 
TYPES : INTERNALS : DO, D1 ; 


50; si; OUTER, -00 SHUNEI2. (C2. By Avake 
ae 53), Dl eur SHUNEIZ (bh, Dy, 


MODULE : SHUNIITZ ; 
ENPULS.< LGB. as Rell 
OUTPUTS = SO. Sl, OUR, OUFL: = 


ae ; 
SO = SHUNIT1 Re J a My Noo, a : 
Sl = SHUNIT1 »B, A, N, &, Ye. 
OUTR = AND (A, a : 
OUTL = AND (B, X) ; 

MODULE : SHUNITI1 ; 

LEWES): CyB oe, No 3b Ree 

OUTPUTS =: S = 

TYrhe. + INTERNALS = EO, Bl, EZ; 
EO = AND (B, N) ; 
El = AND (A, 5 


EZ AND (C, 
om ORTHREE (EO, ‘EL, EZ) ne 


MODULE : 8GATE ; 

TNEUGS. < Aye Bi 5G eee, 

OWEEUTS. ©: BO, BE, B2, B3, Ba BS, a B/ ; 
ae sau 
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BO, 51, BZ, B3 


4GATE Be Byee, 
7. Bo, Bo, B7 


D, 
SGat CR et jG, 


MODULE : 6GATE i 

MIEUIS : A, B, Dy E, F, xk: 

GUIPUTS : cop Gi’ G2, G3, G4, G5 ; 

ierBo : > 
GO, Gl, G2, G3 = eee (re Be CDi os 
at G5 = 2GATE ( E, F, X) ; 


MODULE : 4GATE ; 
iets =: A, B, C, D, K ;: 


MODULE : 2GATE 


END ; 
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